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ABSTRACT 


Steady and unsteady two-dimensional f lowfield analysis was 
conducted for a Sikorsky SSC-A09 airfoil in compressible, high 
Reynolds number flows. Limited verification with experimental 
measurement was achieved. Computational methods included a 
steady, linear panel method with compressibility corrections; 
a laminar and turbulent boundary layer method; an unsteady, 
linear panel method; and a numerical solution method of the 
thin layer, compressible, Navier-Stokes equations using a 
body-fitted C-type computational grid. The Baldwin-Lomax, 
two-layer, zero-equation turbulence model was used. Wind 
tunnel wall interference effects were ignored. Steady and 
unsteady airloads and instantaneous flow pictures are 
presented. In steady flow with little or no separation, 
computed lift, drag, pitching moment, and skin friction 
coefficients, as well as displacement thickness and boundary 
layer velocity profiles at several angles-of-attack were 
generally found to be in good agreement with experimental 
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I. INTRODUCTION 


Historically aeronautical engineers have had only wind 
tunnel and flight test experiments to validate aerodynamic 
theory, often at great expense. In today's world of powerful 
supercomputers and advanced personal computers with vast 
memory capability, flowfield solutions once thought impossible 
or prohibitively expensive are becoming feasible in this new 
age of Computational Fluid Dynamics (CFD). CFD has become an 
effective research tool in understanding complicated fluid 
dynamics phenomena. Indeed, as illustrated in Figure 1.1, the 
Theory, Experiment, and CFD triad complement each other as 
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well as add a new dimension to the validation process. 
Experiment and CFD can now be used to complement and optimize 
each other. CFD results allow in-depth understanding of many 
physical processes. Transition and turbulence models can be 
verified and code robustness (convergence time span) can be 
optimized. Within the CFD framework, it was once thought that 
the full Navier-Stokes equations would have to be solved to 
obtain realistic flows over an airfoil executing maneuvers in 
a viscous, compressible medium. Numerical scheme accuracy and 
convergence rates are complicated by the various length scales 
of the viscous effects near the airfoil and those of the 
surrounding inviscid flow field. It has been proven that more 
cost effective solution methods can be employed that make 
realistic simplifications to the governing equations and allow 
moving away from the supercomputer to the personal computer 
thus yielding beneficial results at greatly reduced time and 
cost. Ultimately, the overall goal would be the completion of 
the design process using only CFD methods. 

A current field of intense investigation is the 
aerodynamics of a rapidly pitching airfoil. Two effects are 
of major interest: 

# Augmented lift created during dynamic stall while 
performing aircraft combat maneuvers (ACM) in high 
Reynolds number flows. 

# Dynamic stall on a retreating helicopter rotor blade 
during high-speed forward flight. 
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Dynamic lift and stall are dominated by the generation of a 
vortex near the leading edge of the suction surface and its 
subsequent convection over the airfoil surface. This sequence 
of events is discussed and shown in great detail in Chapter V. 

The intent of this thesis is the CFD investigation of the 
unsteady aerodynamics of a Sikorsky SSC-A09 airfoil undergoing 
high pitch rate maneuvers. The experimental results of Lorber 
and Carta [Ref. 11] are used for validation of the computed 
solutions. The investigation goals are: 

# Determine the influence of the leading edge stall 
vortex on the unsteady aerodynamic response during and 
after stall. 

i Determine the location of any separation bubbles. 

• Determine the location and extent of the boundary 
layer transition. 

% Determine compressibility effects in inviscid and 
viscous flows. 

# Determine the effect of any supersonic regions and 
shock waves created during pitch up ramp or sinusoidal 
maneuvers. 

• Accurately predict pressure loads, forces, and 
moments. 

§ Determine the most efficient and cost effective CFD 
approach that achieves the desired level of accuracy. 
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In the following sections the methods which were used to 
analyze the above flow phenomena are presented first. A 
presentation of the numerical results and comparisons with 
experiment follows. Each section includes an Appendix which 
contains a complete user's guide for the reader who wishes to 
apply the codes to similar problems. Finally, a discussion of 
all the results is presented and some conclusions with 
recommendations for future research are given. 
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II. STEADY, LINEAR PANEL CODE 


A. POTENTIAL FLOW THEORY/BACKGROUND 

The flow field is assumed to be steady, incompressible, 
inviscid and irrotational. A steady flow field implies the 
fluid velocity and pressure depend only on the spatial 
coordinates and not on time. Flow field incompressibility 
implies that the divergence (the time rate of change of volume 
of a moving fluid element per unit volume) of the velocity 
vector is zero as indicated in Equation 2.1, and that density 
is a constant throughout. 

V • V = 0 (2.1) 

Flow field irrotationality implies that vorticity is zero 
everywhere. Equation 2.2, and that a scalar function must 
exist such that the velocity is given by the scalar function's 
gradient as shown in Equation 2.3. 

V X V = 0 (2.2) 

V 4) - V (2.3) 

Consequently, irrotational flows are often described as 
'potential flows'. 

A flow field that is both incompressible and irrotational 
must satisfy Laplace's equation: 
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( 2 . 4 ) 


= ♦**+ ♦yy = 0 

Since Laplace's equation is a linear homogeneous second order 
partial differential equation, the principle of superposition 
holds. Complicated flows can be created by linearly combining 
elementary flows that are both incompressible and 
irrotational. Uniform, source, and vortex flows are examples 
that meet these conditions (Anderson [Ref.2]). 



Airfoil Geometry and Coordinate System 


1. Reference Frame 

The two-dimensional airfoil geometry and (x,y) and 
(r,0) coordinate systems are described in Figure 2.1. The 
airfoil surface is divided into a number (N) of straight line 





segments normally called ’panels*. N+l surface points, 
normally called nodes, distinguish the N panels. Numbering 
convention starts from the lower trailing edge and proceeds 
clockwise around the airfoil making the first and last point 
the same. Panel length is arbitrary, but enforcement of the 
trailing edge Kutta condition (the trailing edge flow must 
depart smoothly since it is a stagnation point) requires that 
the first and last panel length be the same. Unit normal 
vectors, ft, are perpendicular, positive outward from the panel 
surface. Unit tangent vectors, t, are parallel to the panel 
surface, positive in the clockwise direction. 



Angle-of-Attack Standardization 
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2. Airfoil nomenclature 

Standard airfoil nomenclature is used as displayed in 
Figure 2.2. Summary of nomenclature (Kuethe and Chow [Ref. 
10 ]): 

• Chord Line. The straight line connecting the leading 
and trailing edges. 

t Chord. The distance between the leading and trailing 
edges along the chord line. 

§ Mean Camber Line. The locus of points one-half way 
between the upper and lower surface measured 
perpendicular to the mean camber line itself. 

% Symmetric Airfoil. An airfoil where the mean camber 
and chord lines are the same. 

• Aerodynamic Center. The point on the airfoil where 
the moment is independent of angle-of-attack. 

• Center of Pressure. The location where the resultant 
of a distributed load effectively acts on a body. The 
point about which the aerodynamic moment is zero. 

• Geometric Angle-of-Attack (a) . The angle between V. 
and the chord line. 

• Zero-Lift Line. A line on the airfoil parallel to the 
flight path and passing through the trailing edge when 
the airfoil is oriented to create zero lift. The 
zero-lift and chord line are the same for a symmetric 
airfoil. 
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# Angle-of-Attack at Zaro Lift (a^) . The angle between 
the chord and zero-lift lines. 

# Absolute Angle-of-Attack (a,) . The angle between V. 
and the zero-lift line. 

« a = a - a L . 0 (2.5) 

3. singularity Distribution 

The airfoil velocity potential (♦) is determined by 
decomposing the potential flow field into a free stream flow, 
and placing a source and vortex distribution at each control 
point (mid point) of each panel. Vortex flows provide 
circulation/lift and here vortex strength (y) is fixed. 
Source flows accurately represent body thickness. Source 
distributions (q) are allowed to vary from panel to panel. 
The total potential is described below. These integrals are 
calculated along the surface contour s in polar coordinates. 


® total + ^source + ♦vortex ( 2 . 6 ) 

4>. = v m x [ x cosa + y sina ] (2.7) 

^source = f g { ' *nr J ds (2.8) 

♦vortex ” /, { 6 } dS ' 2 * 9> 
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Integration is performed on each panel along a straight line 
where q A and y are constant and then all the panels summed. 
The velocity is then obtained from V$ . 

4. Influence Coefficients 

Influence coefficients provide an algebraic system of 
linear simultaneous equations that ease numerical solution. 
An influence coefficient is defined by the velocity induced at 
a field point (on the airfoil surface) by a unit strength 
singularity (Source and Vortex) distribution on one panel. 
Nowak [Ref. 13], Teng [Ref. 15], and Tuncer [Ref. 16] provide 
detailed analysis of geometrical quantities, equations and the 
numerical solution scheme. 

a. Boundary Conditions 

Two boundary conditions must be satisfied. The 
first is the flow tangency condition at all control points 
(the mid point of each panel). This is accomplished by 
requiring the normal component of velocity at the control 
point to be zero for all panels. The second, the Kutta 
condition requires smooth flow leaving the trailing edge, and 
is accomplished by equating the upper and lower pressures at 
the trailing edge. This ir enforced by equating the 
tangential velocities on the first and N th panel. 

5. Coefficient of Pressure (C p ) 

Once the source strengths (q*) and vortex strength (y) 
are calculated, the normalized velocity (V total /v„) j is computed 







at each control point. Using Bernoulli's equation, Equation 
2.10, the incompressible flow Coefficient of Pressure is 
computed. 



= 1 



( 2 . 10 ) 


a. Pressure Compressibility Correction 

For low Mach number flows, less than M=.3, the 
density variation in an inviscid flow is negligible (less than 
a 5% variation, Anderson [Ref. 2]). For higher, subsonic 
(M.<.7) Mach number flows, a compressibility correction to the 
incompressible data is achieved by using the 'Prandtl-Glauert' 
rule derived from small perturbation, linearized velocity 
potential theory: 



C p 

* incamp 


f i - 


( 2 . 11 ) 


6. Force and Moment Coefficients 

The force and moment coefficients are computed by 
integration/summation of the pressure distribution assuming a 
constant C P on each panel. The total force on a single panel 
would be C ri *ds. Figure 2.3 details the required geometry. 
Airfoil-fixed forces for panel i are: 
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( 2 . 12 ) 


sin » * fs cosP 1 fs 

c r ai = C Pt x ds x sinp = C Pi x dy ( 2 . 13 ) 

c r u = C Pl * ds x cosP = C Pi x dx ( 2 . 14 ) 



Figure 2.3 

Force and Moment Geometry 


Integration of forces over H panels with respect to the 
airfoil-fixed coordinate system (negative sign on C Fx due to 
the sign convention of positive tangential velocities in the 
clockwise direction around the airfoil) are shown in Equations 
2.14 and 2.15: 
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(2.15) 


N 

Cr M ~ ~ yi Cpi ^ y i* i - y t ^ 
1^1 


N 

Cp, ~ ^ Cp t ^ X i*l “ X i ^ 


(2.16) 


Rotation with respect to the free stream direction (tangent 
for drag and perpendicular for lift) is described in Equations 
2.17 and 2.18: 


II 

Cy coscc 
r y 

C r M 

sin a 

(2.17) 

- 

Cp cosa 

r X 

+ c 'y 

sina 

(2.18) 


The moment is taken about the quarter-chord point from each 
control point (x^yj and summed: 

N 

^ c Pl { ( x i* 1 - *i )(**,- -25 )♦ { y in - Yi ) y mt } 

(2.19) 


7. Thin Airfoil Theory Prediction 

One of the basic assumptions of two-dimensional 
inviscid theory holds that the flow always closes smoothly and 
completely around the trailing edge, therefore, integrally 
producing sero pressure drag (d'Alembert's paradox). Drag is 
primarily due to viscous effects which generate frictional 
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shear forces at the surface eventually causing flow 
separation. D'Alembert's paradox is also true for subsonic 
compressible flow since the compressible and incompressible 
pressure coefficients differ only by a constant. This can be 
proven since there is no locally supersonic flow that would 
create wave drag. Inviscid flow theory has proven to be in 
good agreement with experiment in the linear region of the C it 
curve where there is no flow separation (Anderson [Ref. 2]). 
Thin airfoil theory predicts that for a symmetric airfoil: 

# The lift-curve-slope is 2n. 

# The aerodynamic center and the center of pressure are at 
the quarter-chord point. 

For a cambered airfoil: 

t The lift-curve-slope is 2it. 

# Only the aerodynamic center is at the quarter-chord point 
and the center of pressure varies with Cj. 

8. The Supercritical Airfoil 

Airfoil quality and efficiency are measured by its L/D 
which determines aerodynamic efficiency and C Lmax which 
determines stall speed and is critically dependent upon 
airfoil thickness. The supercritical airfoil was the result 
of Richard T. Whitcomb’s (working at The National Aeronautics 
and Space Administration - NASA) development of two- 
dimensional turbulent airfoils with good transonic behavior, 
improved drag divergence Mach numbers, and good low-speed 
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maximum lift and stall characteristics. The concept was based 
on obtaining locally supersonic flow on the upper surface with 
an isentropic recompression. As the airflow approaches the 
speed of sound, a local area of supersonic flow extending 
vertically appears over the upper surface. On a conventional 
airfoil, this flow would terminate in a shock wave at about 
mid-chord producing significant losses. Separation of the 
boundary layer is then aggravated by the shock induced 
pressure rise superimposing on an adverse pressure gradient. 
The supercritical airfoil allows the shock to position itself 
significantly aft of mid-chord producing a more even upper 
surface pressure distribution. The resulting airfoil series 
was characterized by a large leading edge radius, less 
curvature across the upper surface middle region (limiting 
flow acceleration), and aft camber where its influence is a 
maximum (Harris [Ref. 8]). 

B. CODE VALIDATION 

1. Computer Codes 

Many panel codes based on steady, incompressible, 
inviscid flow over arbitrary airfoils have been developed. 
This paper uses versions written, and subsequently modified, 
by Nowak [Ref. 13] and Teng [Ref. 15]. Required input 
consists of angle-of-attack in degrees and the number of 
airfoil panels. Normalized velocities and pressure 
coefficients at each control point are produced. A complete 
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users guide for the Airfoil.f and Panel.f programs are 
provided in Appendix A. 

2. The HACA 0012 Symmetric Airfoil 

a. Geometry and Output Verification 

A NACA 0012 symmetric airfoil was chosen to 
investigate the effects of increasing panel number and 
compressibility. Figure 2.4 illustrates a typical 100 panel 
airfoil generated by the airfoil.f program. Excellent 
agreement between calculated Pressure Coefficient and results 
obtained by Anderson [Ref. 2] at 9° angle-of-attack is shown 
in Figure 2.5. Compressibility effects, an increased suction 
peak with increasing Mach number, on a symmetric airfoil are 
also demonstrated. 

b. Forces and Moment Comparison 

Lift, drag, and pitching-moment coefficient as a 
function of angle-of-attack and panel number are displayed in 
Figures 2.6 through 2.8. The number of panels has little 
effect on calculated lift and only a slight effect on 
calculated moment. However, Figure 2.8 graphically displays 
the wide variation of calculated drag as a function of panel 
number. It is important to note that this ’calculated' drag 
is not real. In reality, the integral pressure drag should be 
zero as indicated in section A.7. As this figure illustrates, 
the suction peak forces cannot be exactly resolved when a 
summation is made over N discrete panels. Further 
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investigation, Figure 2.9, reveals that airfoil thickness also 
plays an important role. The leading edge suction peak is 
more easily resolved on thicker airfoils. Compressibility 
effects are displayed in Figures 2.10 through 2.12 - Lift, 
drag, and pitching-moment coefficient magnitude increase with 
increasing Mach number. 

c. The Aerodynamic Center 

Thin airfoil theory predicts the aerodynamic center 
to be at the quarter-chord point (section A.7). Figure 2.13 
illustrates the pitching-moment coefficient as a function of 
Mach number and pivot point (the point about which all moments 
are taken). The aerodynamic center was located at 26.05% for 
both M=0.2 and M=0.4. Kuethe and Chow (Ref. 10] state that 
the position of the aerodynamic center is a function of 
airfoil thickness, geometry (camber), and viscosity. Here the 
thickness effect is seen as moving the aerodynamic center aft. 

3. The Eppler E585 Airfoil 

This airfoil was designed for sailplanes in low 
Reynolds number flows. A 71 panel geometry is displayed in 
Figure 2.14. The angle-of-attack for zero lift is 5.53°. 
Good agreement was achieved between the panel code calculation 
and Eppler's [Ref. 7] measured velocity distributions, Figure 
2.15. Only slight variation was identified at the trailing 
edge that is easily resolved by splining in additional panels. 
Figures 2.16 through 2.19 display compressibility effects on 
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this cambered airfoil. Compressibility enhances lift and a 
more pronounced suction peak is observed. 

C. THE 8IKORSKY 8SC-A09 SUPERCRITICAL AIRFOIL 

1. Airfoil Geometry 

This is a 9% thick, supercritical airfoil (section 
A.8) used in the Lorber and Carta experiment [Ref. 11]. The 
original geometry consisted of 132 surface coordinates (131 
panels) as shown in Figure 2.20. The trailing edge was 
modified. Figure 2.21, to meet Kutta condition requirements: 
A sharp trailing edge, and the first and last panel having the 
same length. The resulting surface coordinates were manually 
entered into the points.dat input file. 

2. Lorber and Carta Experimental Data 

Lorber and Carta [Ref. 11] completed an experiment 
studying the aerodynamics of dynamic stall penetration at 
constant pitch rate and free stream Mach numbers of 0.2 
through 0.4 corresponding to a Reynolds number of two through 
four million using the Sikorsky SSC-A09 airfoil. The two- 
dimensional tunnel experiment obtained dynamic stall data at 
conditions representative of full-scale helicopter rotor 
blades and maneuverable combat aircraft. A 17.3 inch chord 
wing was oscillated in pitch using both ramp and sinusoid 
motion. Wind tunnel wall effects were not accounted for. 

Detailed aerodynamic response was obtained from 72 
miniature pressure transducers and eight surface hot film 
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gages. Unsteady data included 36 constant speed ramps and 
nine sinusoidal oscillations. Ramp motion was a modified 
motion consisting of an initial delay, a constant rate 
increase to maximum, and then a second delay at maximum. 
Force and pitching-moment coefficients were determined by 
integrating pressures over the airfoil using the following: 


Ctf = 

1 

QC 

f( P iow-Pup)&< 

(2.20) 

t-c ~ 

i/< 

Plow Pup) 

(2.21) 

1 

_ •> 

f (Plo. 

- P up ) (x- 0.25c) dx 

(2.22) 

qc 2 

J 


Cl = 

C N cos a - C c sina 

(2.23) 

Cd = 

C c cosa + c w sina 

(2.24) 


3. Panel Number Effects on Forces and Moment 

Lift, drag, and pitching-moment coefficient as a 
function of panel number and angle-of-attack are illustrated 
in Figures 2.22 through 2.24. Panel density was evenly 
increased around the leading edge using a spline program to 
stimulate peak suction resolution. A total of 184 panels was 
found to minimize the calculated drag resulting in a maximum 
C d of .004 at 15° angle-of-attack. As before, the lift 


19 




coefficient was found insensitive and the moment coefficient 
was found to be only slightly sensitive to panel number. 

4. Force and Moment Results 

Panel computed and Lorber and Carta measured pressure 
coefficient as a function of Mach number and angle-of-attack 
is illustrated in Figures 2.25 through 2.32. Reasonable 
agreement was achieved at small angles-of-attack (0° to 9°) . 
Increasing angle-of-attack and using compressibility 
corrections caused deviation from measured values. 

Lift coefficient as a function of Mach number and 
angle-of-attack for calculated and Lorber and Carta measured 
values are displayed in Figure 2.33. Only slight deviation is 
observed at M=0.2 through 10° angle-of-attack. However, the 
compressibility effect calculated by panel.f was in the 
opposite direction (increasing C L „ with increasing Mach number) 
to that measured by Lorber and Carta. 

Moment coefficient as a function of Mach number, 
angle-of-attack, and pivot point calculated by panel.f and 
measured by Lorber and Carta are displayed in Figures 2.34 and 
2.35. The general compressibility effect is accurately 
predicted and good correlation was achieved at lower angle-of- 
attacks. The aerodynamic center was located at 25.05%. 
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III. CEBECI 2-D LAMINAR « TURBULENT BOUNDARY LAYER CODE 


A. SHEAR LAYER THEORY/BACKGROUND 

Limiting the flow field to two-dimensional with no body 
forces, the generalized Navier-Stokes equations can be 
obtained when Newton's second law is applied to a finite 
control volume fixed in space or to an infinitesimally small 
moving fluid element. The resulting general unsteady, 
compressible, viscous flow Navier-Stokes equations become: 



iu) 

t 

+ a(pu 2 ) 
dx 

+ d(puv)_ _ _ a 

by o 

!P a ^ foxy 

1 x dx dy 

(3.1) 


JV) 

It 

, d (puv) 
dx 

- -1 

!P - da *y ^ da yy 
iy dx dy 

(3.2) 


The unsteady continuity equation results when the conservation 
of mass principle is applied to a finite control volume fixed 
in space and is shown in Equation 3.3: 

$S ♦ ^ ^ * 0 < 3 - 3 > 

Since a complete flow field solution to these equations 
requires a vast amount of computer time and power, a 
dimensional/order-of-magnitude reduction of the Navier-Stokes 
equations results in the boundary layer equations. These 
equations allow a practical scheme to computationally solve 
the flow field. 
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When a steady, incompressible flow field is assumed, the 
energy equation will decouple from the momentum and continuity 
equations allowing ease of solution. Assuming that the fluid 
behaves as a Newtonian fluid, where viscous stress is 
proportional to the rate of fluid strain, assuming constant 
flow properties, and subtracting out the continuity equation 
the x-component of the momentum equation becomes: 


du 

U -fc 


+ v 


du 


I ♦ v J!h ♦ 

pox dx 2 dy 2 


(3.4) 


where v is the kinematic viscosity (v = p/p). 

There are three types of fluid momentum transfer: 

9 Transport by fluid mean motion. 

# Transfer of random molecular motion (viscous 

stresses). 

• Transfer by turbulent eddies (mean turbulent 

stresses). 

Except at very low Reynolds numbers, viscous stresses are 
small compared to the rate of momentum transfer by the mean 
fluid element motion. Instantaneous flow quantities are 
replaced by a mean and fluctuating term to incorporate 
turbulent flow effects. This results in extra stress terms 
often called Reynolds stresses. 


du 

“Si 


+ V 


du 

dy 


1 dp 
p dx 


+ v 


d 2 u 

dx 2 


+ 

dy 2 



d uV 

~sr 

(3.5) 
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The basic boundary layer theory assumptions are that the 
boundary layer is very thin when compared to the body length 
scale (airfoil chord), and the flow Reynolds number is large. 
An order-of-magnitude analysis of the x and y turbulent flow 
momentum equations result in the steady, two-dimensional, 
incompressible Boundary Layer Equations for laminar and 
turbulent flows (Cebeci and Bradshaw [Ref. 5]): 


3u . dv 

~5x ”3y 


o 


(3.6) 



+ V 


du _ 1 
~dy 9 


d£*xt 
dx 


+ v 


d 2 u 

dy 2 


d uV 
~3y~ 


(3.7) 



= 0 


(3.8) 


The y-component of the momentum equation implies that 
pressure is constant through the boundary layer in the 
direction normal to the surface. This means that the pressure 
distribution at the boundary layer outer edge is impressed 
directly onto the surface without change. This assumption is 
generally true as long as one stays away from large curvatures 
(Anderson [Ref. 2]). This allows division of the flow field 
into an inner, the viscous boundary layer region, and an outer 
region where viscous stresses are negligible and thus can be 
treated and solved using incompressible, inviscid numerical 
methods. Two boundary conditions are applied. The no slip, 
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airfoil surface boundary condition is represented by u=v=0. 
The outer boundary layer edge condition is y=6 at 0=0, (x). 

1. Turbulence Model 

Turbulence modeling is used to relate the Reynolds 
shear stress term of Equation 3.7 to the local mean-velocity 
gradient allowing numerical flow field calculation. This 
modeling is based on local equilibrium - the assumption that 
the transport terms are small. Prandtl proposed a mixing 
length model. Equation 3.9, similar to the kinetic theory of 
gases where turbulent eddies are assumed to be discrete and to 
collide and exchange momentum at distinct/discrete intervals. 
Here, 1 is a characteristic length related to the fluid 
turbulence intensity (Cebeci and Bradshaw [Ref. 5]). 

-p TPP - pi 2 j^pj (3.9) 

Boussinesq proposed a mean flow, eddy-viscosity model, 
Equation 3.10, where e B is termed the turbulent eddy- 
viscosity and is assumed to vary less rapidly than the shear 
stress term. It is important to note that eddy-viscosity is 
not a flow property and depends greatly on the mean-velocity 
gradient and mixing length (Cebeci and Bradshaw [Ref. 5)). 

-p IFv 7 = P e* (3.10) 

The Cebeci-Smith eddy-viscosity model, Equations 3.11 
and 3.12, is used for separated flow computation and treats 
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the boundary layer as a composite layer having an inner, € Bi , 
and an outer, €„ 0 , region with separate empirical formulations. 
The inner eddy-viscosity defines the region from the airfoil 
surface outward until e ni =€ mo , where the outer eddy-viscosity 
takes over to the edge of the boundary layer (Cebeci and 
Bradshaw [Ref. 5]). 

* - 16 R., 1 [l - e W] n 2 v 1 a < 3 - xl > 

(^f) - .0168 R.} [I). - /.) Ytr (3 - 12 » 



2. Transition Model 

Laminar to turbulent flow transition presents a 
stability problem where vortical interaction is very non¬ 
linear. The Chen-Tyson transition model utilizes a region of 
intermittency that is controlled by the intermittency factor, 
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Ytr» which allows turbulence to gradually build in the 
streamwise direction creating a transition zone instead of a 
laminar to turbulent transition point. 

Michel's empirical correlation curve for transition. 
Equation 3.14, is used as an initial estimate for transition 
location. It is based on incompressible and constant property 
flow. See Appendix D for further discussion. 




1.174 


I + 22,400 


■w J 


.46 


*tr 


**« = 


O. e 

V 



U* * 

V 


(3.14) 


B. BL2D.F OVERVIEW 

A two-dimensional, steady, incompressible, viscous flow 
program was developed by Cebeci and Bradshaw [Ref. 5] to 
provide solutions to the (Thin Shear Layer) boundary layer 
equations using the Cebeci-Smith eddy-viscosity turbulence 
model and the Chen-Tyson transition model. Required inputs 
for operation are: 

# An external velocity distribution. 

# Airfoil surface coordinates. 

# Flow Reynolds number. 

# A natural transition point estimate (upper and lower). 
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# The forward stagnation point location. 

The program unwraps the surface coordinate onto the x-axis. 
A Falkner-Skan variable transformation is made to analyze 
laminar boundary layers and to reduce the turbulent boundary 
layer growth. The transformed coordinates are nearly 
independent in the streamwise direction. The Keller-Cebeci 
box, Newton's, and block tridiagonal methods are used to solve 
the second order partial differential equations. The program 
generates output files for graphical visualization and 
interpretation: 

# Skin friction coefficient 

# Displacement thickness 

# Boundary layer velocity profiles 

The laminar, transitional, and turbulent boundary layers are 
calculated starting from the forward stagnation point. A 
complete users guide for BL2D.F is located in Appendix A. 

1. Program Hints 

Convergence is critically dependent on the upper 
surface transition point input and to a lesser degree on the 
forward stagnation point input. If the laminar flow 
calculations indicate flow separation (a separation bubble) 
before the transition point can be calculated, the wall shear 
becomes negative causing solution divergence and meaningless 


results. 





Transition from laminar to turbulent flov is indicated 
where C f reaches a minimum and then dramatically increases. 
Separation is indicated when C f reaches zero or a negative 
value. Nowak [Ref. 13] discovered that the program can handle 
mild amounts of separation with a symmetric airfoil at angle- 
of-attack. She also found that increasing Reynolds number 
decreases the probability of separation. 

C. THE HACA 0012 AIRFOIL 

The boundary layer code, bl2d.f, was validated using 
previously documented results. A test case was completed at 
a Reynolds number of one million and a transition location of 
.38 X/C and presented in Figure 3.1. Skin Friction 
Coefficient, C F , and Displacement Thickness, 6*, results agree 
well with those presented in Cebeci and Bradshaw [Ref. 5]. 

Nowak [Ref. 13] presented results for this airfoil at a 
Reynolds number of 540,000. BL2D.F results are shown in 
Figures 3.2 through 3.7. Also presented are the variations in 
C F and 6* outputs as a function of computer type: Indigo and 
Stardent. Table 3.1 presents the various input parameters. 
Variation in C F and 6* outputs appear dependent on how the 
specific computer handles C F as it approaches zero or becomes 
negative. Michel's empirical estimate also varied between 
computers, depending on input (See Appendix D). As expected, 
the transition point moves forward on the upper surface as 
angle-of-attack («°) increases. The Stardent computed a 
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slight separation zone at 4° a located at 0.25 X/C and at 6° 
a located at 0.05 X/C when the Indigo did not. Both computers 
calculated leading edge suction separation bubbles at 10° a 
but at slightly different positions. Neither computer could 
arrive at a converged solution at greater than 10° a. 


TABLE 3.1 

NACA 0012 (100 FANEL8) 
INCOMPRESSIBLE FLOW AT R«=540,000 
BOUNDARY LAYER TRANSITION INPUTS 


r — 

Indigo 

Stardent | 

«° 

Calculated 

Stagnation 

Point 

input 

Stagnation 

Point 

Michel’S 

Estimate 

Transition 

Point 

input 

Stagnation 

Point 

Michel'e 

Estimate 

Transition 

Point 

0 

51 

51 

0.597 

0.578 

51 

0.597 

0.545 

2 

50 

51 

0.374 

0.390 

50 

0.379 

0.380 

4 

49 

48 

0.277 

0.219 

50 

0.212 

0.301 

6 

48 

48 

0.156 

0.054 

47 

0.092 

0.070 

8 

47 

47 

0.285 

0.027 

47 

0.045 

0.044 

10 

46 

46 

0.055 

0.075 

46 

0.055 

0.041 


D. THE SIKORSKY SSC-A09 AIRFOIL 

The boundary layer code was run using the SSC-A09 airfoil 
and calculated C F and 6* results as a function of Mach number 
are illustrated in Figures 3.8 through 3.13. Table 3.2 
presents the various input parameters. Again, the general 
upper surface transition point trend is to move forward as 
angle-of-attack increases. Compressibility causes C F and 5* 
to be thinner over the angle-of-attack range; the difference 
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increasing with increasing X/C. Small separation bubbles can 
be observed at 4° a located at 0.1 X/C, 8° a located at 0.03 
X/C, and 9° a located at 0.02 X/C. 


TABLE 3.2 
SIKORSKY 8SC-A09 
184 PANELS 

BOUNDARY LAYER TRANSITION INPUTS 


r_ 

R.=2E6 (M=0.2) 

R.=4E6 (M-0.4) 

I a° 

Calculated 

Stagnation 

Point 

Input 

Stagnation 

Point 

Michel's 

Estimate 

Transition 

Point 

Input 

Stagnation 

Point 

Michel's 

Estimate 

Transition 

Point 

0 

94 

94 

0.438 

0.65 

94 

0.027 

0.068 

2 

92 

92 

0.184 

0.63 

92 

0.146 

0.064 

4 

90 

89 

0.121 

0.49 

89 

0.115 

0.060 

6 

86 

86 

0.105 

0.075 

86 

0.079 

0.075 

8 

82 

81 

0.0163 

0.023 

82 

0.010 

0.070 

9 

81 

82 

0.0160 

0.022 

81 

0.011 

0.022 


Figures 3.14 through 3.25 present the upper surface 
boundary layer velocity profiles as a function of Mach number 
and angle-of-attack. Increasing Reynolds number appears to 
thicken the boundary layer profile placing more fluid energy 
closer to the airfoil surface and resulting in a decrease in 
the separation bubble size. An example of this can be seen in 
Figures 3.18 and 3.19 at 4° o. A large separation bubble 
appears in the 2,000,000 Reynolds number flow but is greatly 
reduced in the 4,000,000 Reynolds number flow. The effect can 
also be observed at 8° a in Figures 3.22 and 3.23. 
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XV. UNSTEADY/ LINEAR PANEL CODE 


A. THEORY/BACKGROUND 

The steady, linear panel code used in chapter II is 
adapted here to unsteady flow by building in a time dependency 
and modeJing the vortex shedding process. Two further 
assumptions that are required are: 

# The viscous flow effect must be negligible. 

# The flow must stay attached on the airfoil surface. 
Teng [Ref. 15] adapted such a formulation and is used here. 
This panel method was originally developed by Hess and Smith 
[Ref. 9] for steady flow. Its extension to unsteady motion 
was achieved by continuously shedding vorticity into a 
trailing wake using an interactive solution. 

1. Flow Model 

Complicating the unsteady flow solution are the now 
time dependent N+l unknown singularity distributions (sources 
and vortices). These singularities are given a time index. 
As before, the source strengths are allowed to vary from panel 
to panel per time step; and the vorticity is a constant at 
each time step. The vortex shedding process can be defined 
through the basic definition of circulation, Equation 4.1, and 
the Helmholtz theorem of vortex continuity - that potential 
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flow total circulation must be preserved (Anderson [Ref. 2]). 
The airfoil perimeter is identified as p. 

r * = - j { V k • dS } = Y* * P ( 4 * 1 > 

Therefore, circulation changes on the airfoil surface must be 
equal and opposite to the wake vorticity. Thus the shed 
vorticity model allows a mechanism for communication between 
time steps. 

2. Boundary conditions 

The flow tangency and Kutta conditions are no longer 
linear. This requires an iterative numerical solution scheme. 
The flow tangency condition remains the same. The Kutta 
condition must now include the trailing edge panel's potential 
rate of change. 

3. Solution Scheme 

The disturbance potential. Equation 4.2, is 
complicated by adding in potential contributions from the shed 
vorticity panels and the wake core vortices. The disturbance 
potential must be calculated at every control point at each 
time step taking great care to only include velocity 
contributions due to disturbances. Complete modeling, 
numerical solution scheme, and disturbance potential details 
can be found in Teng [Ref. 15]. 

® - { + $ source + $ vortex + 4* s/jed vortex + 4* core vorticity } 
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A complete program (UPOT.F) user’s guide with input and output 
file examples and the source code are located in Appendix B. 
A few non-dimensional parameters must first be clarified. The 
Reduced Pitch Rate (A) used to classify ramp motion and the 
Reduced Frequency (k) used in sinusoidal motion can be based 
on full or half-chord. Program UPOT.F uses full chord, but 
the Lorber and Carta experimental results [Ref. 11] use half¬ 
chord as shown in equations 4.3 and 4.4. 

* * {-£-§} (4 - 3 > 
k = | |* « = Osillation Frequency (4.4) 

B. THE NACA 0012 AIRFOIL 

Calculated force and moment coefficients as a function of 
angle-of-attack during a 0.005 Reduced Pitch Rate ramp motion 
are displayed in Figures 4.1 through 4.3. Steady state 
results from chapter two are also displayed for comparison. 
Very little noticeable difference is noted in lift or moment 
coefficient. 

Results for a sinusoidal motion with a Reduced Frequency 
of 0.025 and a pitch magnitude of 12° are shown in Figures 4.4 
through 4.6, again with steady state results previously 
obtained. Results for a sinusoidal motion with a Reduced 
Frequency of 0.05 and a pitch magnitude of 20° are shown in 
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Figures 4.7 through 4.9. Here, lift is augmented throughout 
the down cycle and lost during the up cycle, contrary to what 
would be expected in experiment. Similar results are shown 
for the drag and the moment coefficients. 

C. THE SIKORSKY SSC-A09 AIRFOIL 

To validate the Lorber and Carta experimental data, a ramp 
motion with a Reduced Pitch Rate of 0.005 and sinusoidal 
motions with Reduced Frequencies of 0.025 and 0.05 were 
completed. UPOT.F unsteady, PANEL.F steady, and Lorber and 
Carta experimental data are presented in Figures 4.10 through 
4.18. 

1. Ramp Motion, A=0.005 (0° to 20°) 

The calculated steady state and unsteady lift 
coefficient varied little from the experimental results 
throughout the linear range (0° to 14°). Once nonlinear, 
viscous effects dominated the real flowfield, calculated 
results diverged as expected. Steady and unsteady calculated 
drag results follow the general direction of experimentally 
measured values but differ widely in magnitude due to the 
basic inviscid flow assumptions. Pitching-moment coefficient 
agrees well with experimental results through approximately 
11° o. 
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2. Sinusoidal Motion 

a. a(t) s 6 - 6008 (ttt)/ k=0.025, 0°- 12°- 0° 

Computed unsteady, inviscid, incompressible results 
indicate a net loss of lift on the up cycle and augmented lift 
on the down cycle when compared to PANEL.F computed steady 
state values. UPOT.F overpredicts lift on both up and down 
cycles when compared to experiment. Pitching-moment 
coefficient results show a similar overall trend but are also 
displaced by a constant magnitude from experimentally measured 
results. 

Jb. «<t) = 10 - lOcos(ut), k=0.05, 0°- 20°-* 0° 

Similar results were obtained when the oscillation 
magnitude and Reduced Pitch rate were increased. Computed 
unsteady, inviscid, incompressible results indicate a net loss 
of lift on the up cycle and augmented lift on the down cycle 
when compared to PANEL.F computed steady state values. No 
reasonable correlation could be drawn from the drag results 
due to the code's inviscid flow assumption. The general 
pitching-moment coefficient trend is similar within the linear 
region, but varies wildly within the nonlinear region. 
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Figure 4.5 
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V. NAVIBR-8T0KES CODE 


A. THEORY/BACKGROUND 

To fully understand and visualize the viscous and 
compressibility effects on the dynamic stall phenomenon, a 
numerical solution of the unsteady Navier-Stokes equations is 
required. A thorough understanding of the flow physics at the 
leading edge region is most important due to the presence of 
significant compressibility effects and boundary layer 
transition. Compressibility effects appear at 0.2 to 0.3 Mach 
numbers on the NACA 0012; and shocks can form on the airfoil 
upper surface at 0.45 Mach number. Interaction of the shock 
and the local boundary layer then directly affects the flow 
separation process (VanDyken and Chandrasekhara [Ref. 17]). 

Dynamic stall is the fluid aerodynamic response to an 
airfoil executing a time-dependent pitch. Rapid pitch up 
generates a vortex near the leading edge that increases flow 
circulation and, therefore, lift. At angels-of-attack beyond 
the static stall angle-of-attack, massive unsteady separation 
and large-scale vortical structures characterize the unsteady 
flowfielu (Srinivasan, Ekaterinaris, and McCroskey [Ref. 14]). 
Vortex convection aft along the airfoil creates large force 
and moment changes. Successive weaker vortices may be 
generated with continued pitching or oscillatory motion. The 
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flow completely reattaches only after the angle of incidence 
is significantly reduced. Experimental results of unsteady 
flows over pitching airfoils by Lorber and Carta [Ref. 11] 
produced supersonic speeds and generated shocks near the 
leading edge at M=0.3 and higher free stream Mach numbers. 
The dynamic stall flowfield dependence parameters are: 
airfoil shape, Mach number, reduced frequency or reduced pitch 
rate, oscillation amplitude motion type (ramp or sinusoid), 
Reynolds number, and wind tunnel wall effects (Srinivasan, 
Ekaterinaris, and McCroskey [Ref. 14]). Wind tunnel wall 
effects were not included in this investigation. 

B. NUMERICAL SCHEME 

The numerical scheme and implementation used in this paper 
were taken from one developed by Tuncer, Ekaterinaris, and 
Platzer [Ref. 16] and Cricelli, Ekaterinaris, and Platzer 
[Ref. 6]. The strong, conservation law form of the two- 
dimensional, thin-layer Navier-Stokes equations is used. For 
a curvilinear coordinate system, (£,{), along streamwise and 
normal direction respectively, the governing equations take 
the following form: 

d t $ + dj + a { S = j?; 1 ( 5 . 1 ) 

Here Q, Equation 5.2, is the vector of the conservative 
variables. The inviscid flux vectors, P and 6, are shown in 
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Equation 5.3. U and W are contravariant velocity components 
given by Equation 5.4. For the thin-layer approximation of 
the viscous flux term 8, in the { direction normal to the 
airfoil surface is shown in Equation 5.5. 


d - 



(5.2) 




a 


pu 

put; + 

J pwU + Zj? 

(© + p)U - I# 



pw 

puw + C xP 
pwW + C,p 


(e + p) W - CtP 


(5.3) 


U = Ul x + + l t 

w = + wc* + c t 


(5.4) 
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In Equations 5.1 through 5.5, all geometrical dimensions are 
normalized by the root-chord length; density is normalized by 
the free-stream density, p„; u and w are the Cartesian 
velocity components of the physical domain normalized by the 
free-stream speed of sound, a.; e is the total energy per unit 
volume normalized by p„a 2 „; and P r is the Prandtl number. The 
equation of state for an ideal gas relates pressure to density 
and total energy and is presented in Equation 5.6. The flow 
field is assumed to be fully turbulent (the laminar and 
transitional boundary layers are neglected) and the Baldwin- 
Lomax turbulence model, Section III.A.l, is used to evaluate 
eddy viscosity. 




p * < T -i) U - P <“»♦»*> ] (5.6) 
1. Boundary conditions 

The computational domain includes the airfoil and the 
entire viscous flow field. The no-slip boundary condition is 
applied on the airfoil surface. The density and pressure 
values are obtained by extrapolation. If the flow is 
unsteady, the surface fluid velocity is set to the dictated 
airfoil velocity to satisfy the no-slip boundary condition 
(Tuncer et al, [Ref. 16]). 

Flow variables are evaluated using the zero-order 
Riemann invariant extrapolation at the downstream outflow 
boundary. Only pressure, the incoming characteristic, is 
specified at a subsonic outflow boundary and three outgoing 
characteristics are extrapolated from the interior. A first 
order extrapolation is used for density and normal velocity. 
The zero-order outgoing Riemann invariant determines the axial 
flow velocity. The outflow boundary conditions are shown in 
Equation 5.7. 

Pi * P 2 



Wi = w 2 
Pi ■ P- 
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2. Mum*ricml Implementation 


The numerical integration is obtained using a high- 
order accurate upwind biased, factorized, iterative, implicit 
scheme developed by Tuncer et al [Ref. 16]. The inviscid 
fluxes are evaluated using Osher's third-order-accurate upwind 
scheme. Time accuracy of the implicit numerical solution is 
improved by Newton subiteration within each time step. 
Complete code details are located in Tuncer et al [Ref. 16] 
and Cricelli et al [Ref. 5]. 

a. HfPS Cray Y-MP 

All NS.F program runs were accomplished using the 
Naval Postgraduate School Cray Y-MP EL computer. It is a 133 
MFLOP processor with 2GB of main memory and a 50 GB local disk 
running Unicos 7. 

b. PLOT3D 

The solutions generated by any CFD program consist 
of millions of numbers representing grid points and physical 
variable magnitudes. Visual techniques are relied upon to 
translate this vast numerical data base into comprehensible 
graphic representations. PLOT3D is a computer graphics 
program that allows interactive fluid dynamics examination. 
Physical phenomena are represented by color gradations and 
through individual particle traces. Program PLCON.F, Appendix 
C, is used to write the visualization output files that are 
displayed here. 
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3. Computational arid 

A 213 by 61 point body-fitted, C-type computational 
grid was used in all computations. The grid had 213 points 
around the airfoil (the trailing edge lower point at 31 and 
upper point at 183) and 61 points in the normal direction, all 
generated by a hyperbolic grid generator. The grid was 
clustered at the body surface in the normal direction, at the 
leading edge and at the trailing edge regions. The C-type 
grid provided a sufficiently high enough grid density at the 
airfoil surface boundary to resolve wall viscous and vortical 
flow field effects, as well as capturing the leading edge 
shock created during unsteady maneuvers and created at high 
angle-of-attack in steady flows at greater than 0.3 Mach. 
Cell orthogonality was emphasized throughout the grid and 
facilitated solution convergence. 

4. Program NS.F User's Guide 

A complete NS.F user's guide is located in Appendix C. 
Included are the NS.IN input name list; Indigo and Cray Y-MP 
Batch and graphical interface codes; and the NS.F source code. 

C. SIKORSKY SSC-A09 RESULTS 
1. Steady Strte Motion 

a. Force and Pitching-Moment Coefficients 

Force and pitching-moment coefficient steady state 
results as a function of angle-of-attack for the Navier- 
Stokes, Panel code, and Lorber and Carta data for 0.2 and 0.4 
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Mach number flows are displayed in Figures 5.1 through 5.5. 
The Navier-Stokes code more closely approximates the lift 
coefficient experimental data through 14° angle-of-attack than 
the Panel code with accuracy decreasing with increasing Mach 
number. Some improvement is observed in moment coefficient 
calculations over the Panel code through 13° angle-of-attack. 
The Navier-Stokes code did calculate the experimentally 
measured rapid change in pitching-moment coefficient beyond 
15° angle-of-attack with accuracy improving with increasing 
Mach number. The Navier-Stokes code closely followed 
experimentally measured drag results through 6° angle-of- 
attack, and accuracy improved with increasing Mach number 
beyond this point. The qualitative change in drag with 
increasing Mach number was properly calculated by the Navier- 
Stokes code. 

b. Skin Friction Coefficient 

Skin friction coefficient as a function of airfoil 
position, angle-of-attack, and Mach number are displayed in 
Figures 5.6 and 5.7. A 'loads’ subroutine error in the NS.F 
code required modification of the displayed coefficients by a 
constant factor of 200. A new code version incorporating the 
Chen-Tysen flow transition model in a new 'bltrans' subroutine 
appears to have corrected this magnitude error. A separation 
bubble is observed at 0.2 Mach number located at approximately 
ten percent chord at both 9° and 11° angle-of-attack. The 
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trailing edge separation region grows and moves forward with 
increasing angle-of-attack. Separation bubbles also appear at 
0.4 Mach number at 9°, 11°, and 13° angle-of-attack. The 
trailing edge separation region behaves the same, but is 
quantitatively smaller in size with increasing Mach number. 

c. Pressure Coefficient 

Pressure coefficient as a function of airfoil 
position, angle-of-attack, and Mach number is displayed in 
Figures 5.8 through 5.19. The Navier-Stokes code closely 
approximates the experimental data through 13° angle-of-attack 
with a small discrepancy at the trailing edge at low Mach 
numbers. Navier-Stokes correlation appears to be better with 
decreasing Mach number. The Baldwin-Lomax turbulence model 
was not able to accurately predict the shock induced boundary 
layer separation and reduced suction peak as can be observed 
in Figures 5.15, and 5.17 through 5.19. 

d. Plot3D Visualization 

Steady State density, pressure, Mach number, and 
vorticity flowfield variations as a function of Mach number 
and angle-of-attack are shown in Figures 5.20 through 5.31. 
The solutions presented for 0° angle-of-attack are the ones 
later used to initiate unsteady motion. At M=0.2, the flow 
remains attached until 9° a, at which point the trailing edge 
lightly separates and the separation region begins to move 
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forward with increasing angle-of-attack. At 15° a, the 
separation region extends forward to approximately 0.1 x/c. 

At M=0.4, the flow again remains attached until 9° 
a, at which point the trailing edge separates a little more 
and the separation region begins to move forward with 
increasing angle-of-attack. Vorticity appears to increase 
with increasing Mach number. Shock induced boundary layer 
separation rppears first at 11° a and increases in magnitude 
through 15° a where massive flowfield separation is observed, 
Figure 5.31. 

2. Unsteady Motion 

The unsteady calculations were started from the steady 
state solution at the lowest angle-of-attack. For sinusoidal 
motion, the instantaneous angle-of-attack is shown in Equation 
5.8. Definitions for Reduced Pitch Rate, A, and Reduced 
Frequency, k, are given in Equations 4.3 and 4.4, 
respectfully. 


«(t) = (“m ax - «ml n ) x _ C OS(0)t)] (5.8) 

a. Ramp Motion, M=0.2, a=GP- 30°, and A=0.005 

Density residual history as a function of angle-of- 
attack is displayed in Figure 5.32 and indicates stable 
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results through 15° angle-of-attack. Force and pitching- 
moment coefficient results, unsteady panel, and Lorber and 
Carta experimental results are displayed in Figures 5.33 
through 5.35. The Navier-Stokes code more closely calculates 
lift and pitching-moment coefficients through 17° angle-of- 
attack than the unsteady panel code. The Navier-Stokes code 
closely followed experimentally measured drag through 10° 
angle-of-attack, but was late in calculating the 
experimentally measured sudden rise in drag at 16° angle-of- 
attack. 

(1) Flowfield Visualization. Flowfield density, 
pressure, Mach number, and vorticity are displayed in Figures 
5.36 through 5.42. A smaller leading edge stagnation region 
and a little larger trailing edge separation region is evident 
when compared to steady state results. Ramp maximum leading 
edge Mach number is also slightly smaller at any given angle- 
of-attack. Massive flowfield separation is observed at 20 c 
angle-of-attack. Figure 5.42. 

b. Ramp Motion, M=0.3 6 0.4, a=0°- 20°, and A=0.005 

Force and pitching-moment coefficient results as a 
function of Mach number and angle-of-attack and Lorber and 
Carta experimental results are displayed in Figures 5.43 
through 5.48. The Navier-Stokes code somewhat overestimates 
force and pitching-moment coefficients for all Mach numbers 
throughout the attached flow region, but did capture the 
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experimentally measured changes at stall with accuracy 
improving with increasing Mach number. Drag coefficient 
followed experiment closely through the linear region with 
accuracy improving with increasing Mach number. 

(1) Flowfield Visualization. Flowfield density, 
pressure, Mach number, and vorticity for the M=0.4 ramp are 
displayed in Figures 5.49 through 5.55. Mach number over the 
leading edge is higher than steady state values. Shock 
induced boundary layer separation is observed starting at 11° 
angle-of-attack and is more massive and moves more forward 
than observed in steady state results. At 15° angle-of- 
attack, the upper surface is mostly separated and convecting 
vortices are observed departing the trailing edge. 

The leading edge flowfield region of the M=0.4 
ramp motion is magnified in Figures 5.56 through 5.63. These 
figures graphically display the complex leading edge flow 
physics of shock induced boundary layer separation. A 
secondary shock on the leading edge can also be identified in 
Figures 5.56, 5.57, and 5.60. The time dependent vortex 
shedding process can be observed in Figures 5.62 and 5.63. 
c. Sinusoid, M-0.2, and k=0.025 [6 - 6cos(ot)] 

Density residual history as a function of angle-of- 
attack is displayed in Figure 5.64 and indicates stable 
results throughout the angle-of-attack range. Force and 
pitching-moment coefficient results are displayed with 
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unsteady panel and Lorber and Carta results in Figures 5.65 
through 5.67. Navier-Stokes lift results more closely follow 
the experimental results; but the character of the results, 
decreased lift on the up stroke and augmented lift on the down 
stroke, are opposite to the expected results. Drag 
computations improved over the unsteady panel code. The 
general trend is to follow experiment, but there is an error 
associated with angle-of-attack. Pitching-moment follows the 
experiment well, but seems to have a constant error. The 
experimental pitching-moment results are all positive which 
would not be expected with this cambered airfoil. 

(1) Flowfield Visualization. Flowfield density, 
pressure, Mach number, and vorticity are displayed in Figures 
5.68 through 5.74 for both the up and down stroke. Trailing 
edge separation is first observed at 9° anqie-of-attack. The 
flow generally remains well behaved throughout the cycle and 
no shocks are indicated. Higher local Mach numbers are 
observed on the down stroke when compared to the up stroke for 
the same angle-of-attack. 

d. Sinusoid, M=0.2, and k=0.05 [10 - lOcos (ot)J 

Density residual history as a function of angle-of- 
attack is displayed in Figure 5.75 and indicates stable 
results below 13.5° angle-of-attack. Force and pitching- 
moment coefficient results are displayed in Figures 5.76 
through 5.78. The Navier-Stokes code followed experimentally 
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measured lift well through 19° angle-of-attack. A large 
difference in lift was calculated during the down cycle 
between 20° and 9° angle-of-attack. The Navier-Stokes code 
followed experimentally measured drag well through 12° angle- 
of-attack. There appears to be good moment coefficient 
agreement through 12° angle-of-attack. 

(1) Flowfield Visualization. Flowfield density, 
pressure, Mach number, and vorticity are displayed in Figures 
5.79 through 5.91 for both the up and down stroke. For 
angles-of-attack below 13°, local leading edge Mach number is 
higher and the trailing edge separation region is larger on 
the down stroke when compared to the up stroke at the same 
angle-of-attack. Beginning at 15° angle-of-attack, the local 
leading edge Mach number is higher on the up stroke. Massive 
trailing edge separation is observed on the down stroke at 17° 
angle-of-attack and disappears at 15° angle-of-attack. The 
flowfield is massively separated with complex vortical 
structures at the maximum angle-of-attack, 20°. The leading 
edge flowfield region is magnified in Figures 5.92 through 
5.94. These figures graphically display the complex leading 
edge flow physics of shock induced boundary layer separation. 
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Figure 5.3 

Steady State C Ma (M=0.2) 


Sikorsky SSC-A09 (M=0.4) 



Figure 5.4 

Steady State C M , (M=0.4) 
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Sikorsky SSC-A09 



Figure 5.5 
Steady State C„. 
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Sikorsky SSOA09 (M=0.2) 
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Figure 5.10 

Steady State C P (M=0.2) 


Sikorsky SSC-A09 (M= 0.4) 











Sikorsky SSC-A09 (M- 0.2) 



Figure 5.12 

Steady State C P (M=0.2) 


Sikorsky SSC-A09 (M= 0.4) 



Figure 5.13 

Steady State C P (M=0.4) 
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Figure 5.16 

Steady State C p (M=0.2) 



Figure 5.17 

Steady State C F (M=0.4) 
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Figure 5.18 

Steady State C f (M=0.2) 


Sikorsky SSC-A09 (M= 0.4) 



Figure 5.19 

Steady State C P (M=0.4) 
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DENSITY PRESSURE 



Figure 5.21 
Sikorsky SSC-A09 
Steady State (M=0.2) 
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Figure 5.22 
Sikorsky SSC-A09 
Steady State (M=0.2) 
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Figure 5.23 
Sikorsky SSC-A09 
Steady State (M=0.2) 


101 


U.T4 









DENSITY PRESSURE 



Figure 5.24 
Sikorsky SSC-A09 
Steady State (M=0.2) 
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Figure 5.25 
Sikorsky SSC-A09 
Steady State (M»0.2) 
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DENSITY PRESSURE 



Figure 5.26 
Sikorsky SSC-A09 
Steady State (M-0.4) 
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Figure 5.27 
Sikorsky SSC-A09 
Steady State (M=0.4) 
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Figure 5.29 
Sikorsky SSC-A09 
Steady State (M=0.4) 















Figure 5.30 
Sikorsky SSC-A09 
Steady State (M=0.4) 
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Figure 5.31 
Sikorsky SSC-A09 
Steady State (M-0.4) 
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Ramp Residual History (M= 0.2) 



Figure 5.32 

Ramp Residual History (M-0.2) 


Sikorsky SSC-A09 (M=0.2) 



Figure 5.33 
Ramp C Lt (M=0.2) 
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Figure 5.34 
Ramp C d . (M=0.2) 



Figure 5.35 
Ramp Chi (M-0.2) 
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Figure 5.37 
Sikorsky SSC-A09 
Ramp (A=0.005, M=0.2) 
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Figure 5.39 
Sikorsky SSC-A09 
Ramp (A=0.005, M=0.2) 


115 


«•aoi 

















DENSITY PRESSURE 



Figure 5.41 
Sikorsky SSC-A09 
Ramp (A-0.005, M=0.2) 
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Figure 5.42 
Sikorsky SSC-A09 
Ramp (A=0.005, M=0.2) 
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Sikorsky SSC-A09 (M=0.4) 



Figure 5.43 


Ramp C Li (M=0.4) 



Figure 5.44 
Ramp C dc (M=0.4) 
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Figure 5.45 
Ramp C M , (M=0.4) 



Figure 5.46 

Ramp C L , (M=0.2,0.3,0.4) 


120 
















DENSITY PRESSURE 



Figure 5.49 
Sikorsky SSC-A09 
Ramp (A=0.005, M=0.4) 
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Figure 5.50 
Sikorsky SSC-A09 
Ramp (A«0.005, M=0.4) 


123 


•11.14 

141.11 






















Rarop (A=0.005, M=0.4) 
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Figure 5.53 
Sikorsky SSC-A09 
Ramp (A=0.005, M=0.4) 
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Figure 5.54 
Sikorsky SSC-A09 
Ramp (A=0.005, M=0.4) 








Figure 5.55 
Sikorsky SSC-A09 
Ramp (A=0.005, M=0.4) 
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Figure 5.56 
Sikorsky SSC-A09 
Ramp (A=0.005, M=0.4) 
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Figure 5.57 
Sikorsky SSC-A09 
Ramp (A=0.005, M=0.4) 
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Figure 5.59 
Sikorsky SSC-A09 
Ramp (A=0.005, M=0.4) 
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Figure 5.60 
Sikorsky SSC-A09 
Ramp (A=0.005, M=0.4) 
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Figure 5.61 
Sikorsky SSC-A09 
Ramp (A=0.005, M=0.4) 
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Figure 5.62 
Sikorsky SSC-A09 
Ramp (A*=0.005, M=0.4) 
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Sikorsky SSC-A09 (M- 0.2) 



Figure 5.65 

Sinusoid C L , (k=0.025, M=0.2) 
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Figure 5.66 

Sinusoid C dc (k=0.025, M=0.2) 



Figure 5.67 

Sinusoid C„ B (k=0.025, M=0.2) 
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Figure 5.68 
Sikorsky SSC-A09 
Sinusoid (UP) (k=0.025, M=0.2) 
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DENSITY PRESSURE 



Figure 5.69 
Sikorsky SSC-A09 
Sinusoid (UP) (k=0.025, M=0.2) 


140 








DENSITY PRESSURE 



Figure 5.70 
Sikorsky SSC-A09 
Sinusoid (UP) (k=0.025, M=0.2) 
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Figure 5.72 
Sikorsky SSC-A09 

Sinusoid (DOWN) (k=0.025, M=0.2) 
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Figure 5.73 
Sikorsky SSC-A09 

Sinusoid (DOWN) (k=0.025, M=0.2) 
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Figure 5.74 
Sikorsky SSC-A09 
Sinusoid (DOWN) (k=0.025, M=0.2) 
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Figure 5.79 
Sikorsky SSC-A09 
Sinusoid (UP) (k=0.05, M=0.2) 
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Figure 5.80 
Sikorsky SSC-A09 
Sinusoid (UP) (k=0.05, M=0.2) 
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Figure 5.83 
Sikorsky SSC-A09 
Sinusoid (UP) (k=0.05, M=0.2) 
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Figure 5.84 
Sikorsky SSC-A09 
Sinusoid (UP) (k=0.05, M=0.2) 
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Figure 5.85 
Sikorsky SSC-A09 
Sinusoid (UP) (k=0.05, M=0.2) 
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Figure 5.86 
Sikorsky SSC-A09 
Sinusoid (DOWN) (k=0.05, M=0.2) 
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Figure 5.88 
Sikorsky SSC-A09 
Sinusoid (DOWN) (k=0.05, M=0.2) 
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Figure 5.89 
Sikorsky SSC-A09 
Sinusoid (DOWN) (k=0.05, M=0.2) 
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Figure 5.91 
Sikorsky SSC-A09 
Sinusoid (DOWN) (k=0.05, M=0.2) 
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Figure 5.92 
Sikorsky SSC-A09 
Sinusoid (k=0.05, M=0.2) 


161 













Figure 5.93 
Sikorsky SSC-A09 
Sinusoid (k=0.05, M=0.2) 

162 














VORTICITY VORTICITY 




Figure 5.94 
Sikorsky SSC-A09 
Sinusoid (k=0.05, M=0.2) 
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VI. CONCLUSIONS AND RECOMMENDATIONS 


The steady and unsteady two-dimensional flovfield analysis 
was conducted for a Sikorsky SSC-A09 airfoil in compressible, 
high Reynolds number flows. Computational methods included a 
steady panel method with compressibility corrections; a 
laminar and turbulent boundary layer method; an unsteady panel 
method; and a numerical solution method of the thin layer, 
compressible, Navier-Stokes equations. The Baldwin-Lomax, 
two-layer, zero-equation turbulence model was used. In steady 
flow with little or no separation, computed lift, drag, 
pitching moment, and skin friction coefficients, as well as 
displacement thickness and boundary layer velocity profiles at 
several angles-of-attack were generally found to be in good 
agreement with experimental data. The much simpler laminar 
and turbulent boundary layer method produced very good 
information, more than adequate for the preliminary design 
process, at a greatly reduced computational cost. 

When any airfoil enters deep stall, the flowfield is seen 
to be dominated by massive flow separation and highly non¬ 
linear behavior characterized by the shedding of vortex-like 
structures. The Baldwin-Lomax, simple eddy viscosity 
turbulence model used here was found to be inadequate. It 
predicted steady flows accurately only when there was little 
or no flow separation. When the flow separated, it over 
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predicted the leading edge suction peak, over predicted 
experimentally shown separation, and consistently predicted 
higher lift and lower pitching-moment. 

One major inaccuracy built into the assumptions was the 
transitional nature of the boundary layer being neglected and 
instead approximated by a fully turbulent flowfield. Here, 
the flowfield was shown to be dominated by leading edge 
separation, often induced by a shock. The small supersonic 
region and shock that form near the leading edge significantly 
reduced the peak suction pressure and airloads; thus negating 
the benefits from dynamic stall by reducing the stall vortex 
strength. The unsteady aerodynamic response near stall was 
shown to be strongly dependent on the leading edge stall 
vortex characteristics. Sinusoidal motions with higher 
reduced frequencies were shown to be qualitatively similar to 
ramp motion. Srinivasan, Ekaterinaris, and McCroskey [Ref. 
14] concluded that no currently used turbulence model 
predicted all airloads consistently and in agreement with 
experiment for all flow conditions. They did conclude that 
the best improvement over the Baldwin-Lomax model was the 
Renormalization Group Theory of turbulence (RNG) model which 
also offered no additional computational costs. The RNG model 
is also an algebraic eddy viscosity, equilibrium model where 
the eddy viscosity is assumed to instantaneously adjust to the 
local flow without any history effects; and the specified 
integral length-scale is assumed proportional to the boundary 
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layer thickness. Srinivasan et al [Ref. 14] also concluded 
from a trade study that a denser C-type grid of 360 by 71 
provided the best solution accuracy. 
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BASIC UNIX COMMANDS 

mu <topic>.obtain help info on any 'topic' 

yppasswd . change your password 

mkdir <name>.make directory 

ed <na*e> . change directory to 'name' 

Is . list directory contents 

Is -1 . . w/permissions map and fn size (long option) 

cp <fnl> <fn2> . copies 'fnl' to 'fn2' both in current 

directory 

cp ../<fni> . copy 'fnl' from above dir.Period 

specifies copy to same file name 
mv <fnl> <fn2> . move/rename 'fnl' to 'fn2' & del fnl 

rm <fn>.remove 'fn' 

rm -r <dir> . . removes all subfiles without prompting! 

no way to recover 

pwd .print working dir 

more <fn>.displays 'fnl* one page at a time 

head +xx <fn>.displays xx lines at top of fn 

tail -xx <fn> .... displays xx lines at end of fn 

df.indicates disk free space 

chmod +/- rwx <fn>.change 'fn' protection 

ps -ef . ..show all sys processes (pid) 

ps -ef |grep <name> . . . shows 'name' current processes 
f77 -o <exe> <src.f> . . . compile fortran source code 

'src.f' and use executable name 
'exe'. -02 or -03 options are 

for vectorization 

. kills a process 

. suspends a process 

shows all printing processes 


Ctrl c . 
Ctrl z 
lpstat -t 
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cancel hp2pjpa - <pld> . kills a print job 

pa2ps <fn> .converts a 'fn* to postscript and 

prints two pages/sheet (NO GRAPHICS) 
lp -dtap2p__ps <fn> ........ prints a graphics file 

diff <fnl> <fn2> . . . displays the difference between 

files 'fnl' and •fn2' 

•ip <fn> .windows type editor 

*.Wild card 

B. PROGRAM AIRFOIL.F 

This program generates appropriately distributed airfoil 
surface coordinate points, N+l points, for any NACA 4- or 5- 
Digit Airfoil and places them into 'points.dat' using the 
nodal spacing function: 


.5 x ‘ 

f 

1 1 - COS 

"i] 

71 X —i 



[ 

N) 



Four Digit NACA Series (xxxx) 

First digit: Maximum camber in hundredths of chord 

Second digit: Location of maximum camber in tenths 

of chord 

Third & 4 th : Maximum thickness in hundredths of 

chord 

Five Digit NACA Series (xxxxx) 

First digit: Multiplied by 3/2 is Cj in tenths 

Second & 3 rd : Divided by 2 is location of maximum 

camber in hundredths of chord 

4 th & 5 th : Maximum thickness in hundredths of 

chord 
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3. Program Commands 


airfoil 

"Input Desired Number of Panels on the Upper, Lower 
Surface." (max 100,100) 

50,50 

"Input NACA 4- or 5- Digit Airfoil Type." 

XXXX or XXXXX 


Note: Surface Coordinates are created and 

stored into 'points.dat' where 
{/panels = /points - 1>. 

If desired, create or copy your own 
surface coordinates to 'points.dat' 

C. PROGRAM PANEL.F 

This program reads in 'Points.dat', calculates Velocity 
and Pressure distributions, and outputs BL2D.F required input 
data to 'bl2d.dat'. It generates the files: 'vel.dat', 
'cp.dat', 'bl2d.dat', and 'cldm.dat'. It then calculates and 
displays force coefficient outputs c x , c d , and c m . 

1. Program Commands 

panel 


"Input the / Panels" (one less than in 'Points.dat') 

(sum of two 'airfoil.f' panel entries) 


100 
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"Input R* (xE6)"(1 - 1,000,000) 

1 

"Enter Transition Location" 

0 - Unknown 

1 - Known 

{If '1* chosen} 

"Input X/C Transition Location Upper Surface" 
(Note: The most CRITICAL input !) 

0.XX 

"Input X/C Transition Location Lower Surface" 

0.XX 

"Input Angle-of-Attack in Degrees" 

X or XX.X 

"Input Mach Number" 

0 - Incompressible, or 

.X - Compressible 

D. PROGRAM BL2D.F 

This program reads in 'bl2d.dat' and checks for proper 
stagnation point location. It then generates the files 
, bl2d.out', 'cf.dat', 'dls.dat 1 , 'prol.dat', and 'pro2.dat'. 
l. Program Commands 
bl2d 

"Reading in the data" 
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"I stagnation is * xx" 

"Input new I stagnation ■" 

xx 

"Boundary layer computation in progress" 

"Boundary layer computation in progress" 

"Michels Transition estimates" 

"Estimate for upper transition = .xx" 

"Estimate for lower transition = .xx" 

2. Program optimisation 

The program is repeatedly run until convergence is 
obtained. Procedures: 

§ Run bl2d 

# Run gnuplot 

• Load 'dis' and check C F for convergence 

• If diverged solution, change the upper transition point 
(forward) or alter the stagnation point (±1) and run bl2d 
again. 

f Repeat the above until convergence is reached. 

# Move the transition point progressively aft. Find the 
point where BL2D will just converge. This is the 
Transition Point. 


E. VISUALIZATION ROUTINES 

Data output is viewed using Gnuplot batch files. Gnuplot 
is a plotting routine available on the Indigos. Procedures to 
view or print your results: 


173 


Appendix A 






g 


Activates gnuplot plotting routine 


1 'press' View Pressure Distribution (1 ■ load) 

1 *vel' View Velocity distribution 

1 ’eldin' View C u , C d ,, or C Bi 

1 'dis' View C F and Displacement Thickness 

1 'profile' View Boundary Layer Velocity Profiles 

I 'pf Prints any graph displayed on your screen 

to the hp2p_ps printer 
1. Gnuplot Commands 


set autoscale .autoscale all axis 

set title ' ' .graph title 

set ylabel ' ' .y title 

set xlabel ' ' .x title 

set xrange [ : ] 

set yrange [ : ] 

set grid .turn on grid 

set nogrid .turn off grid 

set key x,y .moves legend to x,y 

set nokey .no legend 

replot . redisplays plot with new changes 


set label ' ’ at x,y displays a label at position x,y 
set data style points . . . displays data as points 
set data style lines .... displays data as lines 
set data style linespoints . displays data as lines 

& points 

p ' cp.dat ' w lines . . . plots ’cp.dat' using lines 
p ’ cldm.dat’ u 1:3 w lines . plots 'cldm.dat' using 

1:3 (a vs c d ) using lines 
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2. Onuplot Batch Files 


fuss 

*C, distribution 
set grid 
set key 
set label 

set function style lines 

set tics out 

set ticslevel 0.5 

set xtics 

set ytics 

set ztics 

set title "Pressure Coefficient Distribution* 0,1 

set xlabel "X/C" 0,-1 

set xrange 10 : 1) 

set ylabel " Cp " 0,.5 

set yrange [1:4] 

plot 'cp.dat' w lines 


V»L 

•Velocity distribution 
set grid 
set key 
set label 

set function style lines 

set tics out 

set ticslevel 0.5 

set xtics 

set ytics 

set ztics 

set title "Velocity Distribution" 0,1 

set xlabel "X/C" 0,-1 

set xrange [0 : 1] 

set ylabel " Velocity " 0,.5 

set yrange (0 : 4] 

plot 'vel.dat' w lines 


CLDM 

•cldm distribution 
set grid 
set key 
set label 

set function style lines 

set tics out 

set ticslevel 0.5 

set xtics 

set ytics 

set ztics 

set autoscale 

set title "Lift Coefficient Distribution" 0,1 

set xlabel "AOA" 0,-1 

•set xrange (0 : 1] 

set ylabel "Cl" 0,.5 

•set yrange [1 : 4] 

•plot 'cldm0012.dat’ u 1:3, 'cldm2412.dat’ u 1:3 
plot 'cldm.dat' u 1:2 


DZS 

• Cf and Del* Distribution 

set grid 

set key 

set label 

set border 

set function style lines 
set tics out 
set ticslevel 0.5 
set xtics 

set ytics -.02,.001,.01 
set ztics 

set title "Cf and Delta-Star" 0,1 
set xlabel "X/C" 0,-1 
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U>N)»-*O\Oa)'0CT»a’A-U»N>»-*Ov£>00'JCr*U , ^U)N)>- J OV£>0D'J<TiC^^CJN)»-* 


set xrange [0:1] 

set yrange (-.002 : .006] 

plot "cf.dat" w lines, "dls.dat" w lines 


non lx 

# Boundary Layer Velocity Profiles 

#set terminal xll 

set grid 

set key 

set nolabel 

set function style lines 

set tics in 

set ticslevel 0.5 

set xtics 

set ytics 

set ztics 

set title "Boundary Layer Velocity Profiles" 0,0 

set xlabel "Airfoil Upper Surface" 0,0 

sat xrange (0 : 10] 

set ylabel "y/c" 0,.5 

set yrange (0 : .0015] 

iplot "prol4.x25" w lines, "pro24.x25" w lines 
plot "prol.dat" w lines, "pro2.dat* w lines 


XT 

# Plotting routine for HP2P postscript printer 
set term postscript 
set output 'pt.gr' 
replot 

set term xll 
!Ip -dhp2p_ps pt.gr 


F. AIRFOIL.F & PANEL.F & BL2D.F SOURCE CODES 


PROGRAM AIRFOIL 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C CDR T. Johnston (AUGUST 1993) 

C Generates surface coordinates for any 4 or 5 digit NACA airfoil 

C and puts them in 'points.dat' using spacing function: 

C .5 * ( 1. - cos (PI* (node/tota) points) ) ) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

COMMON /BOD/ NLOWER,NUPPER,NODTOT.X(202),Y(202) U2D00190 

COMMON /PAR/ NACA,TAU,EPSMAX,PTMAX U2D03350 

OPEN(unit-3,file»'points.dat',status*'unknown') 

CALL INDATA 
CALL SETUP 

WRITE (3,1010) (X(I),Y(I), 1*1, NODTOT+1) U2D00470 

WRITE (6,1010) (X(I),Y(I),1-1,NODTOT+1) 

1010 FORMAT (2(F8.6,2x)) U2D00480 

end 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCU2D0 3220 
C SUBROUTINE BODY(Z,SIGN,X,Y) CU2D03240 

C RETURN COORDINATES OF POINT ON THE BODY SURFACE CU2D03260 

C Z - NODE-SPACING PARAMETER CU2D03280 

C X,Y - CARTESIAN COORDINATES CU2D03290 

C SIGN - +1. FOR UPPER SURFACE CU2D03300 

C -1. FOR LOWER SURFACE CU2D03310 

CCCuCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCU2 DO 3 3 3 0 
SUBROUTINE BODY(Z,SIGN,X,Y) U2D03340 

COMMON /PAR/ NACA,TAU.EPSMAX, PTMAX U2D03350 

IF (SIGN .LT. 0.0) Z * 1. - Z U2D03360 

CALL NACA45(Z,THICK,CAMBER,BETA! U2D03370 

X - Z - SIGN*THICK*SIN(BETA) U2D03380 

Y - CAMBER + SIGN*THICK*COS(BETA) U2D03390 

RETURN U2D03400 

END U2D03410 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCU2D06440 
C SUBROUTINE INDATA CU2P06460 

C SET PARAMETERS OF BODY SHAPE CU2D06480 

C FLOW SITUATION, AND NODE DISTRIBUTION CU2D06490 

C USER MUST INPUT CU2D06510 

C NLCWER = NUMBER OF NODES ON LOWER SURFACE CU2D06520 

C NUPPER * NUMBER OF NODES ON UPPER SURFACE CU2D06530 

C PLUS DATA ON BODY AND SUBROUTINE BODY CU2D06540 
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CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCU2 DO 6 5 60 


SUBROUTINE INDATA 

COMMON /BOD/ NLOWER,NUPPER,NODTOT,X(202), Y(202) 

COMMON /PAR/ NACA,TAU,EPSMAX,PTMAX 

WRITE(6,*) 'INPUT THE NUMBER OF PANELS ON UPPER AND LOWER SUFACE: 
♦NLOWER, NUPPER ?' 

READ (5,*) NLOWER,NUPPER 
WRITE (6,558)NLOWER,NUPPER 

558 FORMAT (///2X, •.............................————■,/, 

2 2X, 'NO. PANELS UPPER SURFACE -' ,15,/, 

3 2X, 'NO. PANELS LOWER SURFACE «' ,15,/, 

4 2X, •......-----......... • ) 

WRITE(6,*) 'INPUT THE NACA AIRFOIL TYPE: 4 or 5 digit series (IE. 
+XXXX, or 230XX) ?' 

READ (5,*) NACA 
WRITE (6,*) NACA 


IEPS 

I PTMAX 

ITAU 

EPSMAX 

PTMAX 

TAU 

IF (IEPS 

PTMAX 

EPSMAX 

RETURN 

END 


NACA/1000 

NACA/100 - 10*IEPS 
NACA - 1000*IEPS - 100*1PTMAX 
IEPS*0.01 
IPTMAX*0.1 
ITAU*0.01 
.LT. 10) RETURN 
0.2025 

2.6595*PTMAX**3 


U2D06570 

U2D06590 

U2D06610 


U2D06700 
U2D06710 


U2D067 30 
U2D06740 
U2D06750 
U2D06760 
U2DO6770 
U2D06780 
U2D067 90 
U2DO6800 
U2D06810 
U2D06820 
U2D06830 
U2D06840 
U2D06850 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCU2DO 912 0 
C SUBROUTINE NACA45(Z,THICK,CAMBER,BETA) CU2D09140 
C EVALUATE THICKNESS AND CAMBER CU2D09160 
C FOR NACA 4- OR 5-DIGIT AIRFOIL CU2D09170 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCU2D09190 


SUBROUTINE NACA45(Z,THICK,CAMBER,BETA) 

COMMON /PAR/ NACA,TAU,EPSMAX,PTMAX 
THICK - 0.0 

IF (Z .LT. l.E-10) GO TO 100 

THICK - 5.*TAU*(.2969*SQRT(Z) - 2*(.126 + Z*(.3537 
- Z*(.2843 - Z*.1015)))) 

IF (EPSMAX -EQ. 0.0) GO TO 130 
IF (NACA -GT. 9999) GO TO 140 
IF (Z .GT. PTMAX) GO TO 110 

CAMBER - EPSMAX/PTMAX/PTMAX*(2.‘PTMAX - Z)*Z 
DCAMDX - 2.‘EPSMAX/PTMAX/PTMAX*(PTMAX - Z) 

GO TO 120 

CAMBER - EPSMAX/(1.-PTMAX)**2*(1. + Z - 2.*PTMAX)*(1. - Z) 


CAMBER - 
DCAMDX - 
BETA 
RETURN 
CAMBER - 
BETA 
RETURN 
IF (Z .GT 
W 

CAMBER - 
DCAMDX - 
GO TO 120 
CAMBER - 
DCAMDX - 
GO TO 120 
END 


2.‘EPSMAX/(1.-PTMAX)' 
AT AN (DCAMDX) 


'(PTMAX - Z) 


PTMAX) G 

Z/PTMAX 

EPSMAX*W*((W - 


GO TO 150 


*W + 3. - PTMAX) 


EPSMAX*3.*W*(1. - W)/PTMAX 

EPSMAX* (1. - Z) 

- EPSMAX 


U2D09200 
U2D0 92 3 0 
U2D09220 
U2D09230 
U2D09240 
U2D09250 
U2D09260 
U2D09270 
U2D09280 
U2D09290 
U2D09300 
U2D09310 
U2D09320 
U2D09330 
U2D09340 
U2D09350 
U2D09360 
U2D09370 
U2D09380 
U2D09390 
U2D09400 
U2D09410 
U2D09420 
U2D09430 
U2D09440 
U2D09450 
U2D09460 
U2D09470 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCU2D11360 
C SUBROUTINE SETUP CU2D11380 

C SE~UP COORDINATES OF PANEL NODES AND SLOPES OF PANELS CU2D11400 

C COORDINATES ARE READ FROM INPUT DATA FILE U! LESS CU2D11410 

C THE AIRFOIL IS OF NACA XXXX OR NACA 230XX TYPE CU2D11420 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCU2D114 40 
SUBROUTINE SETUP U2D11450 

COMMON /BOD/ NLOWER,NUPPER,NODTOT,X{202) ,Y(202) U2D11460 

PI - 3.1415926585 U2D11490 

PI2INV - .5/PI U2D11500 

C SET COORDINATES OF NODES ON BODY SURFACE U2D11520 

NPOINT - NLOWER U2D11550 

SIGN - -1.0 U2D11560 

NSTART - 0 U2D11570 

DO 110 NSURF - 1,2 U2D1158C 

DO 100 N - 1,NPOINT U2D11590 

FRACT - FLOAT(N-l)/FLOAT(NPOINT) U2D11600 

Z - .5*(1. - COS(PI*FRACT)) U2D11610 
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112 


I - NSTART + N 

U2D11620 

113 


CALL BODY(2,SIGN,X(I),Y(I)) 

U2D11630 

114 

100 

CONTINUE 

U2D11640 

115 


NPOINT » NUPPER 

U2D11650 

116 


SIGN - 1.0 

U2D11660 

117 


NSTART « NLOWER 

U2D11670 

118 

110 

CONTINUE 

U2D11660 

119 


NODTOT - NLOWER + NUPPER 

U2D11690 

120 


X(NODTOT+l) - X (1) 

U2D11700 

121 


Y (NODTOT+1) - Y(l) 

U2D11710 

122 


RETURN 

U2D11930 

123 

■**■**•* 

END 

U2D11940 


PROGRAM PAXIL 

****#************#************************«************'********** + ** + *» 

* ***** AUGUST 1993 *♦** 

* +++++ CDR T. Johnston +++++ 

* PURPOSE: CALCULATE THE VELOCITIES ON AN AIRFOIL USING A PANEL METHOD. 

* LIM: Arrays currently dimensioned for maximum of N“200 panels 

* Input data file points.dat will have N+l points 

* Output velocities are referenced to freestream, ie. V/Vinf 


* METHOD: 

* 



FLOWFIELD CONSISTS OF THREE SIMPLER FLOWS: FREESTREAM, SOURCE, 
AND VORTICITY. SOURCE DISTRIBUTIONS q(j) VARY FROM PANEL TO 
PANEL. VORTICITY STRENGTH GAMMA IS THE SAME FOR ALL PANELS. 
BOUNDARY CONDITIONS INCLUDE FLOW TANGENCY AT CONTROL POINTS AND 
KUTTA CONDITION FOR FIRST AND LAST PANELS. INFLUENCE 
COEFFICIENTS COMBINED TO FORM NEW COEFFICIENTS IN LINEAR SYSTEM 


OF n+l EQUATIONS, n+l UNKNOWNS (q (1) . . .q (n), GAMMA). 
AT CONTROL POINTS EVALUATED FROM q(j) AND GAMMA. 


VELOCITIES 



Variable Definitions 
N <* I Panels 

RL - Reynolds Number 

IANS - USER Transition Location Flag 

TRANSUPPER - Upper Transition Point 
TRANSLOWER - Lower Transition Point 
ALPHA “ Angle of Attack 

P - Mach Number 

BETA1 - SQRT ( 1-M~2 ) 

XII) -X Surface Coordinates 

Y(I) “ Y Surface Coordinates 

XM(I) - X Control Point? 

YM(I) - Y Control Points 

R(I,J) - Distance, Control Point to Panel with Unit Strength 
Singularity Distribution 

AN(I,J) - Normal Velocity Component Induced at Ith Panel Control 

Point by a Unit Source on Jth Panel 

AT (I,J) - Tangential Velocity Component Induced at Ith Panel Control 

Point by a Unit Source on Jth Panel 
BN(I,J) - Normal Velocity Component Induced at Ith Panel Control 
Point by a Unit Vorticity on Jth Panel 
BT(I,J) « Tangential Velocity Component Induced at Ith Panel Control 
Point by a Unit Vorticity on Jth Panel 
q(I) - Source Strength 

GAMMA(I) * Vorticity Strength 

Vt(I) - Normalized Tangential Velocity 6 I Control Point ( V/Vinf ) 

Vtc(I) - Compressible Normalized Tangential Velocity 8 I Control pt 

CP - Pressure coefficient { Cp - 1 - Vt A 2 1 

ISTAG * Location of Stagnation Panel (Vt reversal) 


1 REAL 

2 : 

3 

4 

5 : 

6 

7 : 

8 

9 * NUMBER OF PANELS ON AIRFOIL SURFACE: 

10 PRINT*,'INPUT NO. OF PANELS (1 less than #lines in points.dat):’ 

11 READ *,N 

12 PI-ACOS(-l-) 


X(1:202),Y(1:202),XM(1:202),YM(1:202), 

At(1:202, 1:202),Bt (1:202,):202), 
a{l:202,1:202),b(l:202), 

q(1:202),Vt(1:202).ALPHA,VtC(1:202),cP,cPc,CCPC(202), 
PI,GAMMA,THETA(1:202),NUM,DEN, 

R(l:202,1:202),BETA(1:202,1:202),NUM1,DEN1,NUM2,DEN2, 
AAUG!1:202,1:202),An(1:202,1:202),Bn(1:202,1:202) 
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13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 


OPEN (UNIT-88,FILE-'points.dat’,STATUS”’UNKNOWN*) 

OPEN (UNIT-89,FILE-’vel.dat'.STATUS-'UNKNOWN') 

OPEN (UNIT-81, FILE-'cp.dat',STATUS-'UNKNOWN') 

OPEN (UNIT-90,FILE-'bl2d.da t',STATUS-'UNKNOWN’) 

OPEN (UNIT-91,FILE-'cldm.dat 1 ,STATUS-'UNKNOWN') 

print *,'INPUT REYNOLDS NUMBER - _ (X E+6)' 

READ *,RL 

RL - RL*1000000. 

print *,'ENTER 0 IF TRANSITION LOCATIONS UNKNOWN (.8 4 .999 USED)’ 
PRINT 1 IF You wish to enter Transition Locations' 

READ *,IANS 

IF(IANS.EQ.1) THEN 

PRINT *,'INPUT X/C TRANSITION LOCATION FOR UPPER SURFACE:' 

READ ♦, TRANSUPPER 

PRINT ♦,'INPUT X/C TRANSITION LOCATION FOR LOWER SURFACE:' 

READ *, TRANSLOWER 
ELSE 

***These are arbitrary values intended to be downstream of the 
*** actual transition points, for use with Michel's criterion in BL2D 
TRANSUPPER-.8 
TRANSLOWER-.999 
ENDIF 

WRITE (90,50) RL,TRANSUPPER,TRANSLOWER 
50 FORMAT (F10.0,F10.6,F10.6) 

PRINT ♦,’INFUT ANGLE OF ATTACK IN DEGREES:* 

READ *,ALPHA 
ALPHA-ALPHA*PI/180.0 

PRINT *,'INPUT MACH NUMBER (0 FOR INCOMPRESSIBLE):• 

READ *.P 
p - rl/10000000. 

BETA1-(1.0-P**2.0)**.5 

** Read in Points.dat - Surface Coordinates must be TE, Cloclcwise.TE 
DO 30 I-l.N+l 
READ (88,*) X(I),Y(I) 

30 CONTINUE 

* This section defines the influence coefficients: 

DO 110 I—1,N 

* Control Points 

XM (I) —0.5*(X(I)+X(I + 1)) 

YM(I)-0.5*(Y(I)+Y(I + 1)) 

R (1,1) - (XM(I) -X (1) )*+2.+ (YM(I) -Y(1))**2. 

DO 100 J-l, N 
NUM=Y(J+1)-Y(J) 

DEN-X(J+l)-X(J) 

THETA(J)-ATAN2(NUM,DEN) 

NUMl-YM(I)-Y (J+l) 

DEN1-XM(I)-X(J+l) 

NUM2-YM(I)-Y(J) 

DEN2-XM(I)-X(J) 

BETA(I,J)-ATAN2((NUM1*DEN2-DEN1*NUM2),(DEN1+DEN2+NUM1*NUM2)) 

R (I, J+l) - (XM (I) -X(J+1))**2.+ (YM(I)-Y(J+1))**2. 

THETADIF-THETA(I)-THETA(J) 

IF (I .EQ. J) 

: THEN 

An (I, J) -0.5 
Bn (I, JJ-0.0 
ELSE 

An(I, J) = (l/ (2*PI)) * (SIN (THETADI F) *LOG (R (I,J+1)/R(I,J)) 

: *.5+COS(THETADIF)‘BETA(I,J)) 

Bn(I,J)-(l/(2+PI))* (COS (THETADI F) *LOG(R(I, J+l) /R(I, J)) 

: +.5-SIN(THETADIF)‘BETA(I,J)) 

END IF 

At (I, J)—Bn (I, J) 

Bt (I, J) -An (I, J) 

100 CONTINUE 
110 CONTINUE 

* Matrix coefficients of linear system defined (a's and b's) : 

a(N+l,N+l)-0.0 
DO 130 1-1,N 
a(I,N+1)«0.0 
DO 120 J-1,N 
a (I, J) -An (I, J) 
a (I,N+1) -a (I,N+1) +Bn (I, J) 
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91 


120 

CONTINUE 

92 



b(I )--1.0*SIN(ALPHA-THETA(I)) 

93 



a(N+1,1)“At(1,1)+At(N,I) 

94 



a(N+l,N+l)-a(N+l,N+l)+Bt(l,I) +Bt (N,I) 

95 


130 

CONTINUE 

96 



b(N+l) --1. 0* (COS(ALPHA-THETAU)>+COS(ALPHA-THETA(N))) 

97 




98 


* Define augmented matrix for input to linear solver subroutine GAUSS 

99 



DO 150 I-1,N+1 

100 



DO 140 J-1,N+1 

101 



AAUG(I,J)-a(I,J) 

102 


140 

CONTINUE 

103 



AAUG(I, N+2)-b(I) 

104 


150 

CONTINUE 

105 




106 



CALL GAUSS(N+l,AAUG) 

107 




108 


* Define source and vorticity strengths: 

109 



DO 160 I-1,N 

110 



q(I)-AAUG(I,N+2) 

111 


160 

CONTINUE 

112 



GAMMA-AAUG(N+1, N+2) 

113 




114 


* Calculate velocity on each panel at control point 

115 



NSTAGFLAG-0 

116 



ISTAG-0 

117 



DO 180 1-1, N 

118 



Vt (I)-O.O 

119 



DO 170 J-1,N 

120 



Vt(I)-At(I,J)*q(J)+GAMMA*Bt(I, J)+Vt (I) 

121 


170 

CONTINUE 

122 



Vt(I)-Vt(I)+COS(ALPHA-THETA (I)) 

123 



VtC(I)-Vt(I)/BETA1 

124 



Cp=l.0-Vt(I) **2 

125 



CpC-1.0-VtC(I)* * 2 

126 



127 


** 

Find Stagnation Point for BL2D2 

128 



IF ((Vt(I).GT.0) .AND. (NSTAGFLAG.EQ.0)) THEN 

129 



ISTAG-I 

130 



NSTAGFLAG-1 

131 



ENDIF 

132 



Output only Positive Velocities 

133 



IF (Vt(I).LT.O) Vt (I) --Vt (I) 

134 



IF (VtC(I) .LT.0) VtC(I)—VtC(I) 

135 



WRITE (89,45) XM(I),VtC(I) 

136 

* 

-Cpc output places suction surface in the ’down' position 

137 



WRITE (81,45) XM{I),-Cpc 

138 



CCPC(I) - CPC 

139 


180 

CONTINUE 

140 


45 

FORMAT (2(F10.5,2X)) 

141 


48 

FORMAT (3(F10.5)) 

142 


49 

FORMAT (315) 

143 



WRITE (90,49) N,ISTAG,IANS 

144 



DO 190 1=1,N 

145 



WRITE (90,48) XM(I),YM(I),VtC(I) 

146 


190 

CONTINUE 

147 



CALL FANDM(ALPHA,CL,CD,CM,CCPC,X,Y, N) 

148 



WRITE (91,191)ALPHA*180./pi,CL, CD, CM 

149 



write(6,1031)cl,cd,cm 

150 


1031 

format ( /, 

151 



+ 2x,’Cl - ', f10.6, /, 

152 



+ 2x,'Cd - ',f10.6,/, 

153 



+ 2x,'Cm - ',f10.6,/ ) 

154 


191 

FORMAT (/,2X,F4.1,3(2X,F9.6)) 

155 



CLOSE(UNIT-88) 

156 



CLOSE(UNIT-89) 

157 



CLOSE(UNIT-81) 

158 



CLOSE(UNIT-90) 

159 



CLOSE(UNIT-91) 

160 



print *,'CALCULATIONS COMPLETE' 

161 



PRINT *,'OUTPUT FILES ARE vel.dat, cp.dat, CLDM.DAT, bl2d.dat' 

162 



STOP 

163 



END 

164 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

165 


c 

SUBROUTINX FANDM 

166 


c 

INTEGRATE PRESSURE DISTRIBUTION BY TRAPEZOIDAL RULE 

167 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
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168 

169 

no 

171 

172 

173 

174 

175 

176 

177 

170 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 


SUBROUTINE FANDM(ALPHA,cl,cd,cm,CCPC,x,y,n) 

REAL ALPHA,CL,CD, CM,CCPC (202) ,X(202), Y (202) ,CFX,CFY,XMID, YMID, 
: DX, DY 

CFX - 0.0 

CFY -0.0 

CM - 0.0 

DO 100 I - l.N 

** moment coeff is computed around pivot point at 25% Chord 
XMID - .5*(X (I) ♦ X(I + 1)) - 0.25 

YMID - .5* (Y(I) + Y(1 + 1)) 

DX - X (1 + 1) - X (I) 

DY - Y (1 +1) - Y(I) 

CFX - CFX + CCPC (I) *DY 

CFY - CFY - CCPC (I) *DX 

CM - CM + CCPCd) * (DX*XMID + DY*YMID) 

100 CONTINUE 

CD - CFX*COS(ALPHA) + CFY*SIN(ALPHA) 

CL - CFY*COS(ALPHA) - CFX+SIN (ALPHA) 

RETURN 

END 


* Gauss elimination procedure 

SUBROUTIM* OAUSS (N, 2) 


192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 


INTEGER PV 

REAL Z(l:202,1:203),E 
E-1.0 

10 IF (1.0+E.GT.1.0) THEN 
E-E/2.0 
GOTO 10 
END IF 
E-E+2 

EPS2 - 2 * E 

c PRINT *,* MACHINE EPSILON-',E 

1005 DET- 1 

DO 1010 I-l.N-l 
PV-I 

DO 1020 J«I+1,N 

IF (ABS(Z(PV,I)) .LT. ABS(Z(J,I))) PV-J 
1020 CONTINUE 

IF (PV.EQ.I) GOTO 1050 
DO 1040 JC-l.N+l 
TM-Zd, JC) 

Z(I,JC)-Z(PV,JC) 

Z(PV,JC)-TM 
1040 CONTINUE 

1045 DET—1*DET 

1050 IF (Z!I,I) .EQ.0) THEN 

GOTO 1200 
END IF 

DO 1060 JR-I+1, N 

IF (Z(JR,I).NE.0) THEN 
R-Z (JR, I) /Z (I, I) 

DO 1075 KC-I+l.N+l 
TEMP-Z(JR,KC) 

Z (JR, KC) -Z (JR,KC) -R+Z (I, KC) 

IF (ABS (Z (JR, KC) ) .LT.EPS2*TEMP) Z(JR,KC)-0.0 

C !— if the result of subtraction is smaller than 

C !— 2 times machine epsilon times the original 

C !— value, it is set to zero. 

1075 CONTINUE 

END IF 

1060 CONTINUE 
1010 CONTINUE 

DO 1084 I—1,N 
DET-DET*Z(I,I) 

1084 CONTINUE 

IF (Z!N,N).EQ.0) GOTO 1200 
Z(N,N+1)-Z(N,N+1)/Z(N,N) 

DO 1130 NV-N-1,1,-1 
VA-Z(NV,N+1) 

DO 1120 K-NV+l.N 

VA-VA-Z (NV, K) *Z (K, N+1) 

1120 CONTINUE 

Z (NV, N+1) -VA/Z (NV, NV) 

1130 CONTINUE 
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245 

246 

247 

246 

249 

1200 

RETURN 

PRINT *,'MATRIX IS SINGULAR’ 

PRINT *, ’I-’,I. ’Z(I,I)-’,Z(1.I) 

STOP 

END 



fr********************-******'**'*****'********'*****'**'*'*****'***** 

PROGRAM BL2D 


* 

CDR T. Johnston (July 1993) 


•* 

XCTRI(l) - Input for upper transition pt from p» 


* 

XCTRI(2) - Input for Lower transition pt from panel 


* 

N1 - # Panels 


* 

IS “ Stagnation Pt 


* 

ITRANS - Default/USER input for transiton flag 


* 

XI(I) - Control pts 


* 

YI(I) - Control pts 


•* 

VEI(I) - Tangential Velocities 


* 

NXTSF(l) - # panels on upper surface 


* 

NXTSF(2) - ♦ panels on lower surface 


* 

NXT - # panels on a surface in 200 ISF loop 


* 

ISF - Surface flag (1-upper, 2-Lower) 


* 

XC(I) - Redefined Control pts 


•* 

YC (I) - Redefined Control pts 


* 

XII) - Original nodes 



1 


COMMON /BLC0/ RL,TRANSNEW(2),NBL(2),XCTRI(2),ntflag,NI 

2 


COMMON /BLC1/ XCTR,XC(200),YC(200),itr 

3 


COMMON /BLC2/ NX,NXT,NP,NPT,NTR,IT, ISF 

4 


COMMON /BLC3/ X(200),UE(200),PI(200),P2(200),GMTR(200) 

5 


COMMON /BLCS/ DLS (200), VW(200) , CF (200) , THT (200) 

6 


integer ntflag,ni,nx,np,nxt,is,itrans,isf,it,npt,ntr 

7 


DIMENSION NXTSF(2),XI(200),YI(200),VEI(200) 

8 


CHARACTER VAR*25 

9 


REAL PGAMTR 

10 


OPEN (UNIT-9,FILE-'bl2d.dat',STATUS-'UNKNOWN’) 

11 


OPEN (UNIT-8, FILE-'bl2d.out',STATUS-'UNKNOWN') 

12 


OPEN (UNIT-20,FILE«'cf.dat’.STATUS-’UNKNOWN') 

13 


OPEN (UNIT-21, FILE-'dls.dat’,STA~US-'UNKNOWN’) 

14 


OPEN (UNIT-54,FILE-'prol.dat',STATUS-'UNKNOWN') 

15 


OPEN (UNIT-55,FILE-'pro2.dat’,STATUS-'UNKNOWN') 

16 

*•* 

READ BL2D.DAT 

17 


WRITE(6,*) ’READING THE DATA...' 

18 


READ ( 9.* ) RL,XCTRI(1),XCTRI(2) 

19 


READ ( 9,* ) NI,IS,ITRANS 

20 


READ ( 9,15 ) (XI (I) , YI (I), VEI (I), 1-1, NI) 

21 


WRITE(6,*) ’INPUT OF DATA COMPLETE.' 

22 

♦ ** 

Check Stagnation Point for adjustment 

23 


print * 

24 


print *,' I Stagnation is ' 

25 


print *,IS 

26 


print * 

27 


print *,' INPUT NEW I Stagnation - ' 

28 


READ *,IS 

29 

** 

Write to B12d.out 

30 

5 

WRITE(8,90) RL,XCTRI(1),XCTRI(2) 

31 


NXTSF(1)- NI - IS + 1 

32 


NXTSF(2)- IS 

33 

★ ** 

DATA FOR EACH SURFACE (UPPER,LOWER) 

34 


DO 200 ISF - 1,2 

35 


ntflag-0 

36 


NXT - NXTSF(IS!) 

37 


GO TO (201,202),ISF 

38 

*♦* 

REDEFINE CONTROL POINTS 

39 

C 

UPPER SURFACE 

40 

201 

II - IS-1 

41 


DO 211 1-1,NXT 

42 


II - 11*1 

43 


XC(I) - XI(II) 

44 


YC(I) - YI(II) 

45 


UE (I) = VEI (II) 


182 


Appendix A 











46 

211 

CONTINUE 

47 


GO TO 300 

48 

C 

LOWER SURFACE 

49 

202 

II - IS+1 

50 


DO 212 I-l.NXT 

51 


II = II-l 

52 


XC(I) - XI(II) 

53 


YC (I) - YI (II) 

54 


UE (I) - VEI(II) 

55 

212 

CONTINUE 

56 

300 

X(l) - 0.0 

57 

* * * 

DEFINE NODES 

58 


DO 301 1-2,NXT 

59 

301 

X (I) - X(I-1)+SQRT( (XC(I)-XC(I-1))**2+<YC(I)-YC(I-1) ) 

60 

C 

TRANSITION LOCATION- 

61 


DO 320 I-l,NXT 

62 


GMTR(I) - 0.0 

63 


IF (XC(I) .GE. XCTRI (ISF) ) GO TO 321 

64 

320 

CONTINUE 

65 

*•* 

NTR IS TRANSITION PANEL 

66 

321 NTR - I 

67 


CEBECI-SMITH TURBULENCE MODEL 

6P 


PGAMTR - 1200. 

69 


RXNTR - X(NTR-l)* UE(NTR-l) * RL 

70 


GGFT - RL**2/RXNTR**1.34*UE(NTR-1)**3 

71 


UEINTG - 0.0 

72 


U1 - 0.5/UE(NTR-1)/ PGAMTR 

73 


DO 322 I - NTR,NXT 

74 


U2 - 0.5/UE (I)/PGAMTR 

75 


UEINTG « UEINTG+(U1+U2)*(X(I)-X(I-1)) 

76 


U1 - U2 

77 


GG - GGFT*UEINTG*(X(I)-X(NTR-1)) 

78 


IF(GG .GT. 10.0) GO TO 323 

79 


GMTR(I)- 1.0-EXP(-GG) 

80 

322 

CONTINUE 

81 

323 

DO 324 II-I,NXT 

82 

324 

GMTR (II) = 1.0 

83 

C 

PRESSURE GRADIENT PARAMETERS 

84 


DX - X(2)-X(1) 

85 


DUE - UE(2)-UE(1) 

86 


ANG2 - ATAN2(DUE,DX) 

87 


DL2 - DX 

88 


DO 331 I - 2.NXT-1 

89 


ANG1 - ANG2 

90 


DL1 - DL2 

91 


DX - X (1 + 1) -X (I) 

92 


DUE - UE (1 + 1)-UE(I) 

93 


ANG2 - ATAN2(DUE,DX) 

94 


DL2 - DX 

95 


ANG - (DL2*ANG1+DL1*ANG2)/(DL1+DL2) 

96 


P2 (I) - TAN (ANG) 

97 

331 

CONTINUE 

98 


P2(NXT) - 2. *DUE/DL2 - P2(NXT-1) 

99 


DO 330 I - 2,NXT 

100 


P2 (I) - X(I) * P2 (I) /UE (I) 

101 


PI(I) - 0.5 * (1.0 + P2(I)) 

102 

330 

CONTINUE 

103 


P2(1) - 1.0 

104 


PI (1) - 0.5 * (1.0 + P2(1)) 

105 

** 

BOUNDARY LAYER CALCULATION 

106 


WRITE(6,*) 'BOUNDARY LAYER COMPUTATIONS IN PROGRESS. 

107 


CALL BL 

108 


WRITE(8,910)ISF,(I,XC(I),X(I),VW{I),CF(I),DLS(I),THT 

109 


if(ISF.EQ.l) then 

110 


write (20, 905) (XC(I) ,CF(I), 1=2, NXT) 

111 


write(21, 905) (XC(I),DLS(I),1-2,NXT) 

112 


end if 

113 

905 FORMAT(F8.4,4X,E11.4) 

114 

200 

CONTINUE 

115 

***IF AOA is 0 deg., make trans. Iocs, equal: 

116 


if(vei(2).eq.vei(ni-1)) transnew(1)-transnew(2) 

117 

♦ ♦♦ 

Display Michels transition estimate 

118 

c 

if(ITRANS.eq.O) then 

119 


print *, 'MICHELS TRANSITION ESTIMATE ***** 

120 


print *,’Estimate for upper transition:',transnew 

121 


print *,'Estimate for lower transition:',transnew 

122 

c 

END IF 

123 


CLOSE(UNIT-8) 


1,NXT) 
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202 

203 

204 

205 

206 
203 
208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
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223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 
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IF (NP .LE. NPT .AND. IGRCM .LE. IGRCWT) THEN 
IT - 0 
GO TO 5 
ENDIF 
ENDIF 

101 CALL OUTPUT 

IF (NX .LT. NXT) GO TO 1 

RETURN 

END 


SUBROUTINE COir 

COMMON /BLC2/ NX,NXT,NP,NPT,NTR, IT,ISF 

COMMON /BLC3/ X(200),UE(200),PI(200),P2(200),GMTR(200) 

COMMON /BLC7/ ETA<201),DETA(201) ,A(201) 

COMMON /BLC8/ F (201,2) ,U (201, 2), V (201,2) ,B (201,2) 

COMMON /BLC9/ SI (201) ,S2 (201) ,S3 (201) ,S4 (201) ,S5 (201) ,S6(201) , 

+ S7(201),S8(201),R1(201),R2(201),R3(201),R4 (201) 

integer ntflag,ni,nx,np,nxt,is,itrans,isf,it,npt,ntr 
P1H - 0.5 * PI(NX) 

IF (NX .EQ. 1) THEN 
CEL - 0.0 
CELH- 0.0 
DO 5 J-1,NP 
F(J, 1) - 0.0 
U(J,1) - 0.0 
V(J,1) - 0.0 
B(J,1) - 0.0 
5 CONTINUE 

ELSE 

CEL - 0.5 * (X(NX)+X(NX-1))/(X(NX)-X(NX-1)) 

CELH- 0.5 * CEL 
ENDIF 

DO 100 J- 2,NP 
C CURRENT STATION 

FB - 0.5*(F(J,2) + F(J-l,2)) 

UB - 0.5*(U(J,2) + U(J-1,2)) 

FVB - 0.5*<F(J,2)*V(J,2)+F(J-1,2)*V(J-1,2)) 

VB - 0.5*(V(J,2) + V(J-l,2)) 

USB - 0.5* (U( J, 2) **2 + U(J-1,2)*»2) 

DERBV - (B (J, 2) *V(J, 2) - B (J-l, 2) *V(J-l, 2))/DETA(J-l) 

C PREVIOUS STATION 

CFB - 0.5*(F(J,1) ♦ F(J-l,1)) 

CUB - 0.5*(U(J,1) + U( J-l,1)) 

CVB - 0.5* (V(J, 1) + V(J-1,1)) 

CUSB - 0.5*(U(J,1)**2 + U(J-1,1)**2) 

CFVB = 0.5*(F(J,1)*V(J,1)+F(J-1,1)*V(J-1,1)) 

CDERBV - (B (J, 1) *V(J, 1) - B(J-1,1) *V(J-1,1)) / DETA(J-l) 

C S- COEFFICIENTS 

S1(J) - CELH* (F(J, 2) - CFB) + P1H*F(J,2) + B (J, 2)/DETA(J-l) 

S2(J) - CELH*(F(J-l,2)-CFB) + P1H*F(J-l,2)-B(J-l,2)/DETA(J-l) 

S3(J) - CELH*(V(J,2) + CVB) + P1H*V(J,2) 

S4(J) - CELH*(V(J-1,2) + CVB) ♦ P1H*V(J-1,2) 

S5(J) - -(CEL+P2(NX))*U(J, 2) 

S6 (J) - -(CEL+P2(NX) ) *U( J-l, 2) 

C R- COEFFICIENTS 

IF (NX .EQ. 1) THEN 

CRB - -P2(NX) 

R2 (J) - CRB - (DERBV + P1(NX)*FVB - P2(NX)*USB) 

ELSE 

CLB - CDERBV + PI(NX-1)*CFVB - P2(NX-1)*CUSB + P2(NX-1) 

CRB - -CLB - CEL*CUSB - P2(NX) 

R2 (J) - CRB - (DERBV + P1(NX)*FVB- (CEL+P2(NX))*USB + CEL* 
♦ (FVB + CVB*FB - VB*CFB - CFVB)) 

ENDIF 

R1(J) - Ft J-l, 2) - F( J, 2) + DETA(J-l) *UB 

R3(J-1)- U(J-l,2) - U(J,2) + DETA(J-l)*VB 
100 CONTINUE 

C BOUNDARY CONDITIONS 

RK1J - 0.0 

R2(1) - 0.0 

R3 (NP) - 0.0 

RETURN 
END 

*++ + **♦♦♦***++++**++++***+++*♦+****++*****+* + ****+* ++♦***■****** 

***♦***+* + *♦ + * + ******+***♦* + + ***+****+*++ + ****♦+*****•****+ + + *+*♦**** 

SUBROUTINE EDDY 


185 


Appendix A 








280 

282 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 
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317 
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319 
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321 
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323 
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326 
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330 

331 

332 
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334 
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336 

337 
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339 

340 
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350 

351 

352 

353 

354 

355 

356 

357 


COftfON /BLCO/ RL,transnew(2) ,NBL(2) ,XCTRI (2) ,ntflag,NI 
COMMON /BLC2/ NX, NXT,NP,NPT, NTR, IT, ISF 
COMMON /BLC3/ X (200) ,UE (200) , PI (200) , P2 (200) ,GMTR(200) 
COMMON /BLC7/ ETA(201) ,DETA(201) ,A(?01) 

CCM40N /BLC8/ F(201,2) ,U(201,2), V(201,2) ,B (201,2) 
integer ntflag,ni,nx,np,nxt,is,itrans,isf,it,npt,ntr 
DIMENSION EDVK201) 

RL2 - SQRT(RL*UE(NX)*X(NX)) 

RL4 - SQRT(RL2) 

RL216 - 0.16 * RL2 

ALFA - 0.0168 

EDVO - ALFA*RL2*GMTR(NX)*(U(NP, 2) *ETA(NP)-F(NP,2)) 
EDVI(l)- 0.0 

YBAJ - RL4*SQRT(ABS(V(l,2)))/26.0 
DO 70 J-2,NP 
JJ - J 

YBA - YBAJ*ETA(J) 

EL - 1.0 

IFtYBA .LT. 10.0) EL - 1.0 - EXP(-YBA) 

EDVI(J) - RL216*GMTR (NX) * (FL*ETA( J) ) **2 * ABS(V(J,2)) 

IF<EDVI<J) .GT. EDVO) GO TO 90 

IF (EDVI(J) .LE. EDVI(J-l)) EDVI (J) - EDVI (J-l) 

B(J,2) - 1.0 + EDVI (J) 

70 CONTINUE 
90 DO 100 J W,NPT 
100 B(JJ,2) - 1.0 + EDVO 
B(1,2) - 1.0 
RETURN 
END 

**+************************+*******+************************ 
SUBROUTINE OUTPUT 

COMMON /BLCO/ RL,transnev(2),NBL(2),XCTRI(2),ntflag,NI 
COMMON /BLC2/ NX,NXT,NP,NPT,NTR,IT,ISF 
COMMON /BLC3/ X(200).UE(200),PI(200),P2(200),GMTR(200) 
COMMON /BLC7/ ETA(201),DETA(201),A(201) 

COMMON /BLC8/ F(201,2),U(201,2),V(201,2),B(201,2) 

COMMON /BLCS/ DLS(200),VW(200),CF(200),THT(200) 

integer ni,nx,np,nxt,is,itrans,isf,it,npt,ntr,ntflag,nstop 

dimension rdiff(201),rdlow(201) 

IF(NX.EQ.1 ) THEN 
DLS (NX) - 0.0 
THT(NX)- 0.0 
CF(NX) - 0.0 
VW (NX) - V(l,2) 
rdifflow-1000 
nstop-0 
ELSE 

SQRX - SQRT(UE(NX)*X(NX)*RL) 

CF(NX) - 2.0 * V(l,2) * B(1,2) /SQRX 
VW (NX) - V(l, 2) 

DLS(NX)- X(NX)/SQRX * (ETA(NP)-F(NP,2)) 

U1 - U(1,2) * (1.0 -U(l,2)) 

SUM - 0.0 

DO 20 J-2,NP 

U2 - U(J,2) * (1.0 -U(J,2)) 

SUM - SUM + A(J) * (U1 + U2) 

U1 - U2 
20 CONTINUE 

THT(NX)- X(NX)/SQRX * SUM 
rex-UE(NX)+X(NX)*RL 
rtheta-UE(NX)*THT(NX)*RL 

*+* Michels's Criterian (JUST CALCULATED **NEVER** USED) 
rtrans-1.174* (1.0+224 00.0/rex)*rex+*0.4 6 
rdiff(nx)-abs(rtheta-rtrans) 

if ((NX.gt.2) .and. (rdlow(nx-l).eq.rdlow(nx-2))) then 
if (rdlow(nx-2).eq.rdlow(nx-3)) nstop-1 
endif 

if (ISF.eq.2) then 

if ((ntflag.eq.1) .and. (nstop.eq.0)) then 
transnew(ISF)«rex/ (RL*UE (NX)) 
ntflag-0 
endif 
endif 

if((rdiff(nx).LT.rdifflow) .and. (nstop.eq.0)) then 
transnew(ISF)-rex/(RL*UE(NX)) 
rdifflow-rdiff(nx) 
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362 
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376 
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378 

379 

380 

381 
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383 

384 
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386 

387 

388 

389 
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399 

400 

401 
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407 

408 

409 
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414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 


ntflag-1 

endif 

rdlow(nx)«rdifflow 

ENDIF 

C SHIFT PROFILES FOR THE NEXT STATION 
ymark-.0005 
DO 175 J-l.NPT 

if(ISF.EQ. 1) then 

if (U{J, 1) .LT. (0.995)) then 
lasty-1 

yplot-ETA(J)*SQRT(X(NX)/(RL'UE(NX))) 
do nxloop-5.NI/2-l,5 
if(NX.EQ.nxloop) then 

91 markx«NX/5 
numw»markx+30 

c write (numw,*) U(J,1)♦markx.yplot 

write (54,*) U(J, l)+markx,yplot 
if(yplot.gt.ymark) then 
wnte(55,*) markx.ymark 

ydiff-yplot-yplotold 
udiff«U(J,1)-U(J-1,1) 

xvalue«U(J-l,l)+udiff*(ymark-yplotold)/ydiff 
write(55,*) xvalue+markx,ymark 
write(55,92) 

92 format (/) 
ymark»ymark+.0005 

if(yplot.GT.ymark) goto 91 
endif 
endif 
end do 
else 

if (lasty.EQ.1) then 
lasty-0 
do m-1,2 

do nxloop-5.NI/2-l, 5 
if(NX.EQ.nxloop) then 
markx-NX/5 
numw-markx+30 

c write (numw,*) markx,yplot 

write (54,*) markx.yplot 
endif 
end do 
yplot»0.0 
end do 
endif 
endif 
endif 

yplotold-yplot 
F(J,1) - F(J,2) 

U(J,1) - U(J,2) 

V(J,1) - V( J, 2) 

B(J, 1) - B!J,2) 

175 CONTINUE 
RETURN 
END 


SUBROUTINE 80LV3 

COMMON /BLC2/ NX,NXT,NP,NPT,NTR,IT,ISF 
COMMON /BLC7/ ETA(201),DETA(201),A(201) 

COMMON /8LC8/ F(201,2) ,U(201,2), V (201,2) ,B (201,2) 

COMMON /BLC9/ SI (201),S2(201),S3(201),S4(201),S5(201),S6(201), 
+ S7 (201) ,S8 (201) ,R1(201),R2 (201) ,R3(201),R4 (201) 

COMMON /BLC6/ DELF(201) ,DELU(201) ,DELV{201) 
integer ntflag,ni,nx,np,nxt,is,itrans,isf,it,npt,ntr 
DIMENSION All(201),A12(201),A13(201),A14(201), 

+ A21 (201) ,A22 (201) ,A23 (201) ,A24 (201) 

All(1)- 1.0 
A12(1)“ 0.0 
A13(1)“ 0.0 
A2K1)- 0.0 
A22 (1)- 1.0 
A23(1)“ 0.0 
Gil —1.0 

G12 —A(2) 

G13 - 0.0 

G21 - S4(2) 

G23 — S2(2)/A(2) 


187 


Appendix A 




436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 
4 90 
491 
4 92 
4 93 

494 

495 

496 

497 

498 

499 

500 


G22 - G23+S6(2) 

All(2)- 1.0 
A12(2) —A(2)-G13 
A13(2)» A(2)*G13 
A21(2)- S3 (2) 

A22(2)■ S5(2)-G23 
A23 (2) ■ SI (2) +A(2) *G23 

R1(2) - R1(2)-(G11*R1(1)+G12*R2(1)+G13*R3(1)) 

R2(2) - R2(2)-(G21*R1(1)+G22*R2(1)+G23*R3(1)) 

C FORWARD SWEEP 

DO 500 J-2,NP 

C IF(DEN .GT. 1E12) GO TO 11 

DEN - (A13(J-l)*A21(J-l)-A23(J-l)*A11(J-l) -A( J) * 

+ (A12(J-l)*A21(J-l)-A22(J-l)»A11(J-l))) 

C 11 IF(D£N1 .GT. 1E12) GO TO 12 

DENI - A22(J-1)*A(J)-A23(J-1) 

C 12 PRINT*, 'DEN,DENI- 1 ,DEN,DENI 

Gil - (A23(J-l) +A(J) * (A( J)*A21(J-l)-A22(J-l)))/DEN 
G12 - -(A(J)*A(J)+G11*(A12(J-l)*A(J)-A13(J-l)))/DENI 

G13 - (G11*A13(J-l)+G12*A23(J-l)) /A(J) 

G21 - (S2(J)*A21(J-l)-S4(J)*A23(J-l)+A(J)*(S4(J)* 

+ A22(J-1)-S6(J)*A21(J-1)))/DEN 

G22 - (-S2(J)+S6(J)*A(J)-G21*(AtJ)*A12(J-l)-A13(J-l)))/DENI 

G23 - G21*A12(J-l)+G22*A22(J-l)-S6(J) 

All(J)“ 1.0 
A12 (J) —A( J) -G13 
A13 (J) ■ A(J) *G13 
A21(J)- S3 (J) 

A22(J)“ S5(J)-G23 
A23 (J)« SI (J) +A(J) *G23 

R1(J) - R1(J)-(G11*R1(J-l)+G12*R2(J-l)+G13*R3(J-l)) 

R2(J) - R2(J)-(G21*R1(J-l)+G22*R2(J-l)+G23*R3(J-l)) 

IF(R2(J) .GT. 1E20) THEN 
RCHK - R2(J) 

GO TO 99 
END IF 

500 CONTINUE 
C BACKWARD SWEEP 

DELU(NP) - R3(NP) 

El - R1 (NP) -A12 (NP) *DELU(NP) 

E2 - R2(NP)-A22(NP)*DELU(NP) 

DELV(NP) - (E2*A11 (NP) -E1*A21 (NP)) / (A23 (NP) *A11 (NP) -A13 (NP) * 

+ A21 (NP)) 

DELF(NP) - (E1-A13(NP)*0ELV(NP))/A11(NP) 

DO 600 J - NP-1,1,-1 

E3 - R3(J)-DELU(J+l) +A(J+1) *DELV(J+l) 

DEN2 - A21(J)*A12(J)*A(J+l)-A21(J)*A13(J)-A(J+l)*A22(J)* 

♦ All(J)+A23(J) *A11(J) 

DELV(J) - (All(J)*(R2(J)+E3*A22(J))-A21(J)*R1(J)-E3*A21 (J)* 

+ A12(J))/DEN2 

DELU (J) —A(J+1)*DELV(J)-E3 

DELF(J) - (R1(J)-A12(J)*DELU(J)-A13(J)*DELV(J))/A11(J) 

600 CONTINUE 
99 DO 700 J»i,NP 

F(J,2)- F(J,2) +DELF(J) 

U(J,2)« U(J,2) +DELU(J) 

V(J,2)« V(J,2) +DELV(J) 

700 CONTINUE 

U(l,2)« 0.0 

RETURN 

END 
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APPENDIX B 


UFOT.XN MANE LIST 


3 


* 

AIRFOIL TYPE : NACA 0012 

(RAMP) 


I FLAG 

NLCMER 

NUPPER 



0 

50 

50 



12 

IRAMP 

IOSCIL 

ALPI ALFMAX 

RFREQ 

PIVOT 

1 

0 

0.0 30.0 

0.01 

0.25 

IGUST 

UGUST VGUST 



0 

0 . 

0 . 



ITRANS 

DELHX 

DELHY PHASE 



0 

0.00 

0.00 0.00 



CYCLE 

NTCYCLE 

TOL 



1.5 

125 

0.0001 



naot t 

naot X 

aoa values multiplied by 10 

(integer) 


8 1,60,90,110,130,150,170,200 


Comments... 

I FLAG 0: NACA 4 or 5 digit airfoil (program computes coordinates) 

1: User suplies surface coordinates 

NLCMER: # panels upper surface 
NUPPER: # panels lower surface 

(NOTE: Next line entry is either a NACA 4,5 digit 

airfoil or user supplied coordinates (no blanks) 

IRAMP 0: n/a *** RFREQ is based on full chord 

2: straight ramp ♦** RFREQ - A - Reduced pitch rate 
1: Modified ramp *** » ttc/U 

IOSCIL 0: n/a *** RFREQ is based on full chord 

1: Sinusoidal pitch, motion starts at min Aoa 

♦■*■* RFEQ - k - Reduced Frequency 
- wc/U 

ITRANS 0: n/a 

1: Translational harmonic oscillatio 

CYCLE : * of cycles for oscillatory motions 

in case of ramp, cycle-1.5 denotes airfoil is held 
at max aoa for the duration of .5 cycle 

NTCYCLF.: # of time steps for each cycle 

CYCLE*NTCYCLE is limited to 200 currently. 

NAOT: # of input aoa for cp output 

- angles should be increasing order, 

- for oscilatory motions angles should increase 
first then decrease, decreasing angles are for 
return cycle.. 


3 


AIRFOIL TYPE : SSC-A09 (SINUSOID) 


IFLAG NLCMER NUPPER 
1 92 92 

1.000000 .0004815 

.975084 -.001325 

.955144 -.002610 

.935204 -.004290 

.915264 -.006081 


.915264 .009046 

.935204 .006229 
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.955144 .003849 

.975084 .002288 

1.00000 .0004615 

IRAMP IOSCIL ALPI 

ALPMAX 

RFREQ 

PIVOT 

0 10 

20 

0.1 

0.25 

IGUST UGUST VGUST 

0 0 . 0 . 
ITRANS DELHX DELHY 

0 0.00 0.00 

PHASE 

0.00 



CYCLE NTCYCLE TOL 




1.0 160 0.0001 

naot 6 naot X aoa valuas multiplied by 10 (integer) 

15 1,60,90,110,130,150,170,200,110,150,130,110,90,60,1 


Comments... 


I FLAG 0: NACA 4 or 5 digit airfoil (program computes coordinates) 

1: User suplies surface coordinates 

NLCMER: • panels upper surface 
NUPPER: 6 panels lower surface 

(NOTE: Next line entry is either a NACA 4,5 digit 

airfoil or user supplied coordinates (no blanks) 


IRAMP 0: n/a 

2: Straight ramp 
1: Modified ramp 


*** RFREQ is based on full chord 
*** RFREQ - A - Reduced pitch rate 
*** - oc/U 


IOSCIL 0: n/a *** RFREQ is based on full chord 

1: Sinusoidal pitch, motion starts at min Aoa 

*** RFEQ « k - Reduced Frequency 
- uc/V 

ITRANS 0: n/a 

1: Translational harmonic oscillatio 


CYCLE s I of cycles for oscillatory motions 

in case of ramp, cycle-1.5 denotes airfoil is held 
at max aoa for the duration of .5 cycle 


NTCYCLE: • of time steps for each cycle 

CYCLE*NTCYCLE is limited to 200 currently. 


NAOT: # of input aoa for qp output 

- angles should be increasing order, 

- for oscilatory motions angles should increase 
first then decrease, decreasing angles are for 
return cycle.. 


B. PROGRAM UPOT.F SOURCE CODE 


1 

2 

3 

4 

5 

6 

7 

8 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C CDR T. Johnston 

C August 1993 

C PROGRAM UPOT (U2DIIF2, version 2.b, June 87) 

c modified by Tuncer feb-1993 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


UNSTEADY MOTION OF A TWO-DIMENSIONAL AIRFOIL 

IN INCOMPRESSIBLE INV1SCID FLOW 

USING PANEL METHODS BASED ON THE HESS t SMITH 

THIS VERSION INCORPORATES THE FIRST MODIFICATION 

TO THE ORIGINAL U2DIIF PROGRAM IN ITS COMPUTATION SPEEDS 

CHANGES INCLUDE : 

(A) REMOVING PARTIAL PIVOTING IN GAUSSIAN ELIMINATION 

(B) OTHER THAN THE VERY FISRT COMPUTATION TIME-STEP, 

ALL ELIMINATION PROCESSES ARE DONE ON THE R.H.S. ONLY 

(C) SIX 201*200 ARRAYS HAVE BEEN SAVED 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


parameter (nwmx-200, npmx-201) 

COMMON /BOD/ IFLAG,NLOWER,NUPPER,NODTOT,X(npmx+1),Y(npmx+1), 
♦ COSTHE(npmx), SINTHE(npmx) ,SS,NP1,NP2 

COMMON /WAX/ VYW,VXW,WAKE,DT 
COMMON /WAK2/ VYWK.VXWK 

COMMON /SING/ Q(nwmx), GA1WA, QK(nwmx), GAMK 
COMMON /CORV/ CV(nwmx),XC(nwmx),YC(nwmx),nt,TD, 

> CWX(nwmx),CWY(nvmx) 


190 


Appendix B 








9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 


CCPWON /POT/ PHI (nwmx),PHIK(nvmx) 

CCPWON /GUST/ UG(nvmx),VG(nwmx),XGF,UGUST,VGUST 
COWON /EXTV/ UE(nwmx) 

COWON /MAINout/ ialfao(20), naot, nao 
COWON /CPD/ CP(200>,pivot 

common /phase/ ta(nwmx),alphas(nwmx),cla(nwmx),cda(nwmx), 

> cma(nwmx),hya(nwmx) 

DIMENSION XXC(nwmx),YYC(nwmx) 

PI - 3.1415926585 

open (unit-1,file-'u.in',form-'formatted') 
open (unit-8,file-'cl.d',form-'formatted') 
open (unit-9, file-'cm.d',form-'formatted') 
open (unit-91,file-'v.d',form-'formatted*) 
open (unit-92,file-'uout.d',form-'formatted') 

C..INPUT FROM FILE CODE 5 AND SET UP PANEL NODES AND SLOPES 
CALL INDATA 
CALL SETUP 
read(l,*) 

READ(1,*) IRAMP, IOSCIL, ALPI,ALPHAX,FREQ, PIVOT 
read(l,*) 

READ(1,*) IGUST, UGUST, VGUST 
readd,*) 

READtl,*! ITRANS,DELHX,DELHY,PHASE 
read(l,*) 

READd,*) cycle,ntcycle.TOL 
readd,*) 

READd,*) naot, (ialfao(i), i-l,naot) 
nao - 1 

iffiramp .gt. 0 .or. ioscil .gt. 0) then 

ifliramp .gt. 0) print*,' RAMP MOTION, IRAMP - '.iramp 
iffioscil .gt. 0) print*. 


> ' OSCILLATORY MOTION, IOSCIL - *,ioscil 
WRITE (6,555) ALPI, alpmax, FREQ, PIVOT 

555 FORMAT (2X, 'INITIAL ANGLE OF ATTACK -*,F10.4,/, 

> 2X, 'FINAL ANGLE OF ATTACK -',F10.4,/, 

> 2X, 'REDUCED FREQ. FOR OSCIL -'.F10.4,/, 

> 2X, 'PIVOT POINT »',F10.4,/, 

> 2X, 


dalp - alpmax-alpi 
tcon - 2(pi)/k 

k - (w c) / 2 Vinf - (w A) / alfadot 
alfadot - w - (2 u A) / c 

tcon - 2.*pi/freq 
endif 

ifdgust .eq. 1 ) then 

WRITE (6,558) ugust, vgust 

558 FORMAT (2X, 'STREAMWISE GUST VELOCITY -',F10.4,/, 


> 2X, 'PERPENDICULAR GUST VELOCITY -’,F10.4,/, 


ANGLE - ALPI*PI/180. + ATAN(VGUST/(l.+UGUST)) 

COSAng - COS(ANGLE) 

SINAng - SIN(ANGLE) 
endif 

if(itrans .eq. 1 ) then 

WRITE (6,556) DELHX,DELHY,PHASE 

556 FORMAT (2X, 'X AMPLITUDE OF TRANS OSCILL. -\F10.4,/, 

> 2X, 'Y AMPLITUDE OF TRANS OSCILL. -*,F10.4,/, 

> 2X, 'PHASE OF TRANS OSCILL. -'.FIO.4,/^ 

tcon - 2.*pi/freq 
endif 

WRITE (6,557) cycle,ntcycle.TOL 

557 FORMAT (2X, 'TOTAL • OF CYCLES »’,F10.4,/, 

> 2X, •# of TIME STEPS PER CYCLE -',i6 ,/, 

> 2X, 'TOLERANCE FOR CONVERGENCE -',F10.4,/, 

> 2X, '-——-----) 

dts - tcon/float(ntcycle) 

** float() » Numeric to real 

C.STEADY FLOW CALCULATION AT ALPI 
ALPHA - ALPI 
WRITE (6,1030) ALPHA 

1030 FORMAT (//, • STEADY FLOW SOLUTION AT ALPHA - '.F10.6,/) 

WRITE (6,1032) 

1032 format (//,4x,'I XMID Q(I) GAMMA CP(I) UE(I) ',/) 

IF (ALPHA .GT. 90.) stop "ALpha .gt. 90 degree" 

COSALF - COS(ALPHA*PI/180.) 

SINALF - SIN(ALPHA*PI/180.) 

CALL COFISH(SINALF,COSALF) 
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87 


86 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 


CALL INFL (0) 

CALL GAUSS(1,0,0) 

CALL VELDIS (SINALF, COSALF) 

CALL PINTEG (GAPMA.Q) 

rjTT porcc. 

CALL FANEM(SINALF,COSALF,cl,cd, cm 
write (6,1031)cl,cd,cm 
1031 format ( /, 

+ 5x,*Cl - ■,f10.6, /, 

+ 5x,’Cd - ',f10.6,/, 

♦ 5x, 'Cm - . 

if(cycle .le. 0. ) stop * Steady solution only" 

C..INITIALIZATION FOR UNSTEADY FLOW CALCULATION 
HX - 0.0 

HY - 0.0 

HXO - 0.0 

HYO - 0.0 

DHX - 0.0 

DHY - 0.0 

UX - 0.0 

UY - 0.0 

ALP - ALPI 
DA - 0.0 

COSDA - 1.0 

SINDA - 0.0 

CMEGA - 0.0 

XGF - 0.0 

PHA - PHASE*PI/180. 

VXW - COSALF 

VYW - SINALF 

GAMK - GAMMA 

T - 0.0 

TOLD - 0.0 

DT - DTS 

TD - DTS 

WRITE (6,1051) . , 

1051 FORMAT (///// * **♦*★**♦♦*♦*♦•**♦*****♦♦***•*'**♦***♦***** * r / # 

+ • BEGIN*UNSTEADY FLOW SOLUTION ****’,/, 

+ * •// 

> ' istep alpha time nitr cl cd cm'/) 

ntmax - min(nwmx, int(cycle*ntcycle) ) 

** Tmax for Ramp motion 
** Tmax » tcon/ntcycle*(ntmax-1.) 

DO NT - 1,ntmax 
ta(nt) » t 

C.. STORE CORE VORTEX COORDINATES FOR TIME STEP ADJUSTMENTS 
if (nt .ne. 1) then 
DO 51 I - l,nt-l 
XXC(I) - XC(I) 

51 YYC(I) - YC(I) 
endif 

IF (IRAMP .eq. 1) then 
C. modified ramp change in aoa 
if (t .le. tcon) then 

DAL - DALP ♦ (3.-2.*T/TCON)*(T/TCON)**2 
ALPHA - ALPI + DAL 
COSALF - COS(ALPHA*PI/180.) 

SINALF - SIN(ALPHA*PI/180.) 

DA - ALPHA - ALP 

COSDA - COS(DA*PI/180.) 

SINDA - SIN(DA*PI/180.) 

OMEGA - - (DALP*PI/180.) * (6.*T/(TCON*TCON)) * (1.-T/TCON) 
DHX - PIVOT * (1.-COSDA) 

DHY - - PIVOT * SINDA 
UY - PIVOT ♦ OMEGA 

else 

DAL - 0.0 

ALPHA - ALPmax 

COSALF - COS(ALPHA*PI/180.) 

SINALF - SIN(ALPHA*PI/180.) 

DA - 0.0 

COSDA - 1.0 
SINDA - 0.0 
CMEGA - 0.0 
DHX - 0.0 
DHY - 0.0 
UY - 0.0 

endif 
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165 

ELSEIF 

(IRAMP .aq. 2) then 

166 

C.straight ramp change in aoa 

161 

if (t 

.le. tcon) then 

168 

alpha 

« alpi ♦ dalp/tcon*t 

169 

COSALF 

- COS(ALPHA*PI/180.) 

no 

SINALF 

- SIN(ALPHA*PI/180.1 

171 

DA 

- ALPHA - ALP 

172 

COS DA 

- COS(DA*PI/180.) 

173 

SI NBA 

- SIN(DA*PI/180.) 

174 

OMEGA 

- - dalp/tcon*(pi/180.) 

175 

DHX 

. PIVOT * (1.-COSDA) 

176 

MY 

- - PIVOT * SINDA 

177 

UY 

- PIVOT * OMEGA 

178 

•lse 


179 

DAL 

- 0.0 

180 

ALPHA 

- ALPmax 

181 

COSALF 

- COS(ALPHA*PI/180.) 

182 

SINALF 

- SIN(ALPHA*PI/180.) 

183 

DA 

- 0.0 

184 

COSDA 

- 1.0 

185 

SINDA 

- 0.0 

186 

OMEGA 

- 0.0 

187 

DHX 

- 0.0 

188 

DHY 

- 0.0 

189 

UY 

- 0.0 

190 

endif 


191 

ELSEIF 

(Ioscil .eq. 1) then 

192 

C..rotational 

harmonic oscillation 

193 

c DAL 

- DALP*SIN(FR£Q*T) 

194 

c OMEGA - - (DALP*PI/180.) * FREQ * COS(FREQ*' 

195 

c ALPHA - ALPI + DAL 

196 

alpha • alpi + 0.5*dalp*(l.- cos(freq*t) ) 

197 

omega - - 0.5*(dalp*pi/180.)*freq*sin(freq’ 

198 

COSALF 

- COS(ALPHA*PI/180.) 

199 

SINALF 

- SIN(ALPHA*PI/180.) 

200 

DA 

- ALPHA - ALP 

201 

COSDA 

- COS(DA*PI/180.) 

202 

SINDA 

- SIN(DA*PI/180.) 

203 

UY 

- PIVOT * OMEGA 

204 

DHX 

- PIVOT * (1.-COSDA) 

205 

MY 

- - PIVOT * SINDA 

206 

ELSEIF 

(Igust .eq. 1) then 

207 

C..sharp edge gust (ugust and/or vgust) 

208 

XGF 

- T 

209 

do no 

IG - 1,NODTOT 

210 

UG(IG) 

- 0.0 

211 

VG(IG) 

- 0.0 

212 

XG 

- X(IG)‘COSALF + Y(IG)*SINALF 

213 

XGP1 

- X(IG+1)*COSALF + Y(IG+1)‘SINALF 

214 

IF (IG 

.LT. NLOWER+1) GO TO 120 

215 

IF (XGF 

.LE. XG) GO TO 110 

216 

IF (XGF 

.GE. XGP1) GO TO 111 

217 

FAC 

- (XGF - XG)/(XGP1 - XG) 

218 

UG (IG) 

- UGUST*FAC 

219 

VG(IG) 

- VGUST*FAC 

220 

GO TO 110 

221 

111 UG(IG) - UGUST 

222 

VG (IG) 

- VGUST 

223 

GO TO no 

224 

120 IF (XGF .LE. XGP1) GO TO 110 

225 

IF (XGF 

.GE. XG) GO TO 121 

226 

FAC 

- (XGF - XGP1)/(XG - XGP1) 

227 

UG(IG) 

- UGUST* FAC 

228 

VG(IG) 

- VGUST*FAC 

229 

GO TO no 

230 

121 UG(IG) - UGUST 

231 

VG (IG) 

- VGUST 

232 

110 CONTINUE 

233 

IF (XGF 

.LE. COSALF) MGUST - nt 

234 

ENDIF 


235 

alphaa(nt) - alpha 

236 

if (Itrans .eq. 1) then 

237 

C..translation harmonic oscillation 

238 

HX 

- DELHX * SIN(FREQ*T + PHA) 

239 

HY 

- DELHY * SIN(FREQ*T) 

240 

c HX 

—DELHX * COS( FREQ*T ♦ PHA) 

241 

c HY 

—DELHY * COS (FREQ*T) 

242 

DHX 

- HX - HXO 
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243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 


DHY - HY - HYO 

UX - DELHX*FREQ*COS(FREQ*T+PHA) 

UY - DELHY* FREQ* COS (FREQ'T) 

c UX D£LHX*FREQ*SIN(FR£Q*T+PHA) 

c UY DELHY*FREQ*SIN(FR£Q*T) 

hya(nt) » hy 
endif 

C..TRANSFORM CORE VORTEX COORDINATES W. R. T. NEW AIRFOIL POSITION 
IF (nt .ne. 1) then 
DO 90 I - l,nt-l 

XCU) - XXC{I) + CWX(I) * DT 

YC(I) - YYC(I) + CWY(I) * DT 

XCO - XCU) 

YCO - YCU) 

XCU) - XCO*COSDA - YCO*SINDA + DHX 
90 YC{I) - XCO*SINDA + YCO*COSDA + DHY 
endif 

C..CALCULATE THE TRAILING EDGE WAKE ELEMENT 
NITR - 0 

10 WAKE - SQRT (VYW*VYW+VXW*VXW) *DT 

THENP1 - ATAN2(VYW,VXW) 

COSTHE(NP1) - COS(THENP1) 

SINTHE(NP1) - SIN(THENPl) 

X(NP2) - X(NP1) * WAKE*COSTHE(NP1) 

Y(NP2) - Y(NP1) + WAKE*SINTHE(NP1) 

CALL INFL (NITR) 

CALL COEF (SINALF, COSALF, OMEGA,UX.UY,NITR) 

CALL GAUSS(2,nt,NITR) 

CALL KUTTA (ALPHA,SINALF,COSALF, OMEGA, UX, UY) 

CALL TEWAK (SINALF,COSALF) 

TOL1 - ABS(VYW - VYWK) 

TOL2 - ABS(VXW - VXWK) 

IF ((TOL1 .LT. TOL) .AND. (TOL2 .LT. TOL)) GO TO 20 
VYW - VYWK 

VXW - VXWK 

NITR - NITR + 1 
GO TO 10 
20 continue 

CALL PRESS (SINALF,COSALF, OMEGA,UX,UY,ALPHA) 

CALL PINTEG(GAMK,QK) 
if( igust .eq. 1) then 

CALL FANEM!SINAng,COSAng,cl,cd,cm) 

CALL FANDM(SINALF,COSALF,cl,cd,cm) 
endif 

cla(nt) • cl 

cda(nt) - cd 

cma(nt) - cm 

ttt - ((nt-1.)*dts)/((ntmax-1.)*dts) 

IF (IRAMP .GT. 0) THEN 

write(6,1011) nt, alpha, ttt+.125, nitr, cl,cd,cm 
write(92,1011) nt, alpha, ttt+.125, nitr, cl,cd,cm 
ELSE 

write(6,1011) nt, alpha, ttt, nitr, cl,cd,cm 
write(92,1011) nt, alpha, ttt, nitr, cl,cd,cm 
ENDIF 

1011 FORMAT( i4, 2x, f7.4, 2x, f9.6, 3x, i2, 3x, 3fl0.6 ) 
write(8,'(2fl0.5)') alpha, cl 
write(9,'(2fl0.5)') alpha, cm 
C..WAKE ELEMENT LEAVES TRAILING EDGE AS A CORE-VORTEX 
CV(nt) - SS*(GAMMA-GAMK) 

XC(nt) - X(NP1) + 0.5*WAKE*COSTHE(NP1) 

YC(nt) - Y(NP1) + 0.5*WAKE*SINTHE(NP1) 

CWX(nt) - VXW 

CWY (nt) - VYW 

CALL CORVOR (SINALF,COSALF) 

C. .RE-INITIALISE PARAMETERS FOR NEXT TIME STEP CALCULATION 
DO 30 I - 1,NODTOT 

Q(I) - QK(I) 

PHI(I) - PHIK(I) 

30 CONTINUE 

GAMMA - GAMK 

ALP - ALPHA 

HXO - HX 

HYO - HY 

TOLD - T 

DT - TD 

T ■* T + TD 
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321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 
34. 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 
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377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 


ENDDO 

iflioscil .eq. 1 .or. itrans .eq. 1 ) 

> call PHAZ(ntmax,ntcycle,freq,itrans, alpl) 

STOP " normal stop " 

END 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


C SUBROUTINE BODY(Z,SIGN, X, Y) C 
C RETURN COORDINATES OF POINT ON THE BODY SURFACE C 
C C 
C Z - NODE-SPACING PARAMETER C 
C X,Y - CARTESIAN COORDINATES C 
C SIGN - +1. FOR UPPER SURFACE C 
C -1. FOR LOWER SURFACE C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCr-CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE BODY(Z,SIGN,X,Y) 

COMMON /PAR/ NACA,TAU,EPSMAX,PTMAX 
IF (SIGN .LT. 0.0) Z - 1. - Z 
CALL NACA45(Z,THICK,CAMBER,BETA) 

X - Z - SIGN*THICK*SIN(BETA) 

Y - CAMBER + SIGN*THICK*COS(BETA) 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C SUBROUTINE COEF (SINALF,COSALF, OMEGA,UX,UY,NITR) C 
C C 
C SET COEFFICIENTS OF N EQUS ARISING FROM FLOW C 
C TANGENCY CONDITIONS AT MID POINTS OF PANELS C 
C SOLVING THE N-SOURCE STRENGTHS IN TERMS OF THE C 
C VORTICITY STRENGTH (RESULTING IN 2 RHS) C 
C KUTTA CONDITION IS SATISFIED SEPARATELY TO OBTAIN C 
C THE VORTICITY STRENGTH C 
C THIS SOLUTION METHOD IS DESIRED FOR UNSTEADY FLOW C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE COEF (SINALF,COSALF,OMEGA,UX,UY,NITR) 

COMMON /BOD/ IFLAG,NLCMER,NUPPER,NODTOT,X(202),Y(202), 

+ COSTHE(201),SINTHE(201),SS,NP1,NP2 

COMMON /COF/ A(201,211),NEQS 
COMMON /SING/ Q(200),GAMMA,QK(200),GAMK 
COMMON /WAK/ VYW,VXW,WAKE,DT 

COMMON /CORV/ CV(200),XC(200),YC(200),M,TD,CCVX(200),CCVY(200) 
COMMON /INF1/ AAN(201,201),BBN(201,201),AYNP1(201),BYNP1(201) 
COMMON /INF2/ SUMCCN(201),SUMCCT(201),CYNP1(200),CXNP1(200) 

COMMON /GUST/ UG(200),VG(200),XGF,UGUST,VGUST 
NEQS - NODTOT 

NP1 - NODTOT + 1 

NP2 - NODTOT + 2 

C INITIALISE COEFFICIENTS 

IF (<M .GT. 1) -OR. (NITR .GT. 0)) GO TO 91 
DO 90 I - 1,NODTOT 

DO 90 J - 1,NP2 

90 A(I,J) - 0.0 

91 CONTINUE 

C SET LHS MATRIX A(I,J) 

DO 120 I - 1,NODTOT 

XMID - 0.5 * (X(I> + X(I+1)) 

YMID - 0.5 * (Y(I) + Y(I + D) 

B - 0.0 

DO 110 J - 1,NODTOT 

IF ((M .EQ. 1) .AND. (NITR .EQ. 0)) A(I,J) «AAN(I,J) 

B - B + BBN(I,J) 

110 CONTINUE 

C FILL IN THE RIGHT HAND SIDE 

A(I,NP1) - -B + BBI. (I,NP1) *SS/WAKE 
A(I,NP2) - -BBN (I,NP1) *GAMMA*SS/WAKE 
+ + SINTHE (I) * ((l.+UGU) )*COSALF-VG(I)*SINALF+UX) 

+ - COSTHE(I)* ((l.+UG(I))*SINALF+VG(I)«COSALF+UY) 

+ + CMEGAMYMID*SINTHE (I) + XMID*COSTHE (I)) 

C ADD CORE VORTEX CONTRIBUTION 

IF (M .EQ. 1) GOTO 140 
A(I,NP2) - A(I,NP2) - SUMCCN(I) 

140 CONTINUE 

120 CONTINUE 

RETURN 
END 


C SUBROUTINE COFISH(SINALF,COSALF) C 
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399 

C 

SET COEFFICIENTS OF LINEAR SYSTEM - N+l EQUATIONS 

C 

400 

C 

N EQUS - FLOW TANGENCY AT KID POINTS OF PANELS 

C 

401 

C 

1 EQU - KATTA CONDITION AT TRAILING EDGE PANELS 

C 

402 

C 

THIS SOLUTION METHOD IS EFFECTIVE FOR STEADY FLOW, NO 

c 

403 

C 

ITERATION IS REQUIRED, N-SOURCE STRENGTHS AND 1 

c 

404 

c 

VORTICITY STRENGTH ARE SOLVED SIMULTANEOUSLY 

c 

4 05 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC I 

406 


SUBROUTINE COFISH(SINALF,COSALF) 


407 


COMMON /BOD/ IFLAG,NLOWER,NUPPER,NODTOT,X(202),Y(202), 


408 


+ COSTHE(201),SINTHE(201),SS,NP1,NP2 


409 


COMMON /COF/ A(201,211),KUTTA 


410 


COMMON /NUM/ PI,PI2INV 


411 


KUTTA - NODTOT + 1 


412 

c 

INITIALISE COEFFICIENTS 


413 


DO 90 J - 1,KUTTA 


414 

90 

AIKUTTA,J) - 0.0 


415 

c 

SET VN - 0 AT MID-POINT OF I-TH PANEL 


416 


DO 120 I - 1,NODTOT 


417 


XMID - . 5* (X (I) + X (1+1)) 


418 


YMID - .5*(Y(I) + Y(I+1)) 


419 


A(I,KUTTA) - 0.0 


420 

c 

FIND CONTRIBUTION OF J-TH PANEL 


421 


DO 110 J - 1,NODTOT 


422 


FLOG - 0.0 


423 


FTAN - PI 


424 


IF (J .EQ. I) GO TO 100 


425 


DXJ - XMID - X(J) 


426 


DXJP - XMID - X(J+1) 


427 


DYJ - YMID - Y(J) 


428 


DYJP - YMID - Y(J+l) 


429 


FLOG - .5‘ALOG((DXJP*DXJP+DYJP‘DYJP)/(DXJ*DXJ+DYJ‘DYJ)) 


430 


FTAN - ATAN2(DYJP‘DXJ-DXJP*DYJ,DXJP*DXJ+DYJP*DYJ) 


431 

100 

CTIMTJ - COSTHE (I) *COSTHE(J) + SINTHE (I)‘SINTHE (J) 


432 


STIMTJ - SINTHE(I)‘COSTHE(J) - COSTHE(I)‘SINTHE(J) 


433 


A(I,J) » PI2INV‘(FTAN‘CTIMTJ + FLOG*STIMTJ) 


434 


B - PI2INV*(FLOG‘CTIMTJ - FTAN*STIMTJ) 


435 


A(I,KUTTA) - A(I,KUTTA) + B 


436 


IF ((I .GT. 1) .AND. (I .LT. NODTOT))GOTO 110 


437 

c 

IF I-TH PANEL TOUCHES TRAILING EDGE, 


438 

c 

ADD CONTRIBUTION TO KUTTA CONDITION 


439 


A(KUTTA, J) - A(KUTTA, J) - B 


440 


A(KUTTA,KUTTA) - A(KUTTA,KUTTA) + A(I,J) 


441 

110 

CONTINUE 


442 

c 

FILL IN KNOWN SIDES 


443 


A(I,KUTTA+1) - SINTHE(I)‘COSALF - COSTHE(I)‘SINALF 


444 

120 

CONTINUE 


445 


A(KUTTA,KUTTA+1) - - (COSTHE(l) ♦ COSTHE(NODTOT))‘COSALF 


446 


+ - (SINTHE(1) + SINTHE(NODTOT))‘SINALF 


447 


RETURN 


448 


END 


449 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

450 

c 

SUBROUTINE CORVOR (SINALF,COSALF) 

c 

451 

c 

COMPUTE THE LOCAL VELOCITIES OF CORE VORTICES 

c 

452 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

453 


SUBROUTINE CORVOR (SINALF,COSALF) 


454 


COMMON /BOD/ IFLAG,NLOWER,NUPPER,NODTOT, X(202) ,Y(202), 


455 


+ COSTHE(201),SINTHE(201) ,SS,NP1,NP2 


456 


COMMON /SING/ <2(200) ,GAMMA,QK(200) ,GAMK 


457 


COMMON /WAK/ VYW,VXW,WAKE,DT 


458 


COMMON /CORV/ CV(200),XC(200),YC(200) ,M,TD,CCVX(200),CCVY(200) 


459 


COMMON /POT/ PHI(200),PHIK(200) 


460 


COMMON /GUST/ UG(200),VG(200),XGF,UGUST,VGUST 


461 


COMMON /NUM/ PI,PI2INV 


462 


IF (M.EQ.l) GOTO 4 0 


463 


MM1 - M - 1 


464 

c 

VELOCITY COMPONENTS OF CORE VORTICES AT CURRENT TIME STEP 


465 


UGC - 0.0 


466 


VGC - 0.0 


467 


DO 10 N - 1.MM1 


468 


XG - XC(N)‘COSALF + YC(N)‘SINALF 


469 


IF (XG .GT. XGF) GO TO 5 


470 


UGC - UGUST 


471 


VGC - VGUST 


472 

5 

CONTINUE 


473 


VY - (l.+UGC)*SINALF+VGC*COSALF 


474 


VX - (l.+UGC)*COSALF-VGC*SINALF 


475 


XMID - XC(N) 


476 


YMID - YC(N) 



196 


Appendix B 







477 

476 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 
49C 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 
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547 

548 

549 

550 

551 

552 

553 

554 


SUMAMY - 0.0 

SUMBMY - 0.0 

C AMY(N, J) : Y - VELOCITY INDUCED AT N-TH CORE VORTEX BY UNIT 

C STRENGTH DISTRIBUTED SOURCE ON THE J-TH PANEL 

C BMY(N,J) : Y - VELOCITY INDUCED AT N-TH CORE VORTEX BY UNIT 
C STRENGTH DISTRIBUTED VORTEX ON THE J-TH PANEL 

DO 20 J - 1,NP1 
DXJ - XMID - X(J) 

DXJP - XMID - X(J+1) 

DYJ - YMID - Y< J) 

DYJP - YMID - Y(J+l) 

FLOG - .5*ALOG((DXJP*DXJP+DYJP*DYJP)/(DXJ*DXJ+DYJ*DYJ)) 

FTAN - ATAN2(DYJP*DXJ-DXJP*DYJ,DXJP*DXJ+DYJP*DYJ) 

AMY - PI2INV*(FTAN’COSTHE(J) - FLOG'SINTHE(J)) 

BMY - PI2INV*(FLOG*COSTHE(J) ♦ FTAN*SINTHE(J)) 

IF (J.EQ.NP1) GOTO 20 
SUMAMY - SUMAMY + AMY 

SUMBMY - SUMBMY + BMY 

VY - VY + AMY*QK(J) 

VX - VX - BKY*QK(J) 

20 CONTINUE 

VY - VY + SUMBMY*GAMK + SS-BMY*(GAMMA-GAMK)/WAKE 

VX - VX + SUMAMY’GAMX + SS-AMY* (GAMMA-GAMK) /WAKE 

C ADD CORE VORTEX CONTRIBUTION 

C 

C CMY(N.MC) : Y - VELOCITY INDUCED AT N-TH CORE VORTEX BY UNIT 
C STRENGTH MC-TH CORE VORTEX OTHER THAN ITSELF 

C 

C CMX(N.MC) : X - VELOCITY INDUCED AT N-TH CORE VORTEX BY UNIT 
C STRENGTH MC-TH CORE VORTEX OTHER THAN ITSELF 

DO 30 MC - 1,MM1 
IF (MC.EQ.N) GOTO 30 
DX - XMID - XC(MC) 

DY - YMID - YC(MC) 

DIST2 - DX*DX+DY*DY 

CMY - -PI2INV-DX/DIST2 

CMX - +PI2INV*DY/DIST2 

VY - VY + CMY*CV(MC) 

VX - VX + CMX*CV(MC) 

30 CONTINUE 

C COORDINATES OF CORE VORTICES AT NEXT TIME STEP 

CCVX(N) - VX 
CCVY(N) - VY 
10 CONTINUE 

40 CONTINUE 

RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C SUBROUTINE FANEM 

C INTEGRATE PRESSURE DISTRIBUTION BY TRAPEZOIDAL RULE C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE FANEM (SINALF,COSALF,cl,cd,cm) 

COMMON /BOD/ IFLAG,NLCMER,NUPPER,NODTOT,X(202),Y(202), 

+ COSTHE(201),SINTHE(201),SS,NP1,NP2 

COMMON /CPD/ CP(200).pivot 
CFX - 0.0 

CFY - 0.0 

CM - 0.0 

DO 100 I - 1,NODTOT 

c..moment coeff is computed around pivot point 
XMID - .5* (X(I) + X(I + 1)) - pivot 

YMID - .5* (Y(I) + Y(I + 1)) 

DX - X(I + 1) - X(I) 

DY - Y(1+1) - Y(I) 

CFX - CFX + CP (I) *DY 

CFY - CFY - CP (I) *DX 

CM - CM + CP(I)*(DX*XMID + DY‘YMID) 

100 CONTINUE 

CD - CFX*COSALF ♦ CFY*SINALF 

CL - CFY'COSALF - CFX ■‘'SINALF 

RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C SUBROUTINE GAUSS(NRHS.M,NITR) 

C SOLUTION OF LINEAR ALGEBRAIC SYSTEM BY 

C GAUSS ELIMINATION WITHOUT PARTIAL PIVOTING 

C (A) - COEFFICIENT MATRIX 

C NEQNS - NUMBER OF EQUATIONS 
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557 
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608 
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610 
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613 

614 
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616 

617 
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619 
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621 
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627 
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629 

630 

631 

632 


C NRHS - NUMBER OF RIGHT HAND SIDES C 

C RIGHT-HAND SIDES AND SOLUTIONS STORED IN C 

C COLUMNS NEQNS+1 THRU NEQNS+NRHS OF (A) C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE GAUSS!NRHS,M,NITR) 


COMMON /COF/ A(201,211),NEQNS 


C 

C 


150 


160 


180 

170 


NP 
NTOT 
IF 


DO 150 
IM 


DO 150 

R 

DO 150 
A(J,K) 


0)) GO TO 160 


NEONS + 1 
NEQNS + NRHS 

((M .GT. 1) .OR. INITR .GT. 

GAUSS REDUCTION 
I - 2,NEQNS 

- I - 1 

ELIMINATE (I-l)TH UNKNOWN FROM 
ITH THRU (NEQNS)TH EQUATIONS 
J - I,NEQNS 

- A(J,IM)/A(IM,IM) 

K - I,NTOT 

- A(J,K) - R*A(IM, K) 

GO TO 170 

GAUSSIAN ELIMINATION ON ONLY THE RIGHT-HAND-SIDES 
I - 2,NEQNS 

- I - 1 
J - I,NEQNS 

- A(J,IM)/A(IM,IM) 

K - NP,NTOT 

A{J,K) - R*A(IM,K) 


DO 180 
IM 

DO 180 
R 

DO 180 : 

A(J,K) 

CONTINUE 

BACK SUBSTITUTION 
DO 220 K - NP, NTOT 

A (NEQNS, K) - A (NEQNS, K)/A (NEQNS, NEQNS) 


200 

210 

220 


2, NEQNS 
NEQNS + 1 - L 
I + 1 

- IP,NEQNS 

A(I,K) - A(I,J)*A(J,K) 
A(I,K)/A(I,I) 


DO 210 
I 

IP 

DO 200 0 

A(I,K) - 
A(I,K) - 
CONTINUE 
RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C SUBROUTINE INDATA C 

C SET PARAMETERS OF BODY SHAPE C 

C FLOW SITUATION, AND NODE DISTRIBUTION C 

C USER MUST INPUT C 

C NLOWER - NUMBER OF NODES ON LOWER SURFACE C 

C NUPPER - NUMBER OF NODES ON UPPER SURFACE C 

C PLUS DATA ON BODY AND SUBROUTINE BODY C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE INDATA 
DIMENSION TITLE(20) 

COMMON /BOD/ IFLAG,NLCWER,NUPPER,NODTOT,X(202),Y(202), 

+ COSTHE(201),SINTHE(201),SS,NP1,NP2 

COMMON /PAR/ NACA,TAU,EPSMAX,PTMAX 
READ (1,*) ITITLE 
C WRITE (6,*) ITITLE 

DO 10 I - 1,ITITLE 
READ (1,502) TITLE 
10 WRITE (6,503) TITLE 

501 FORMAT (315) 

502 FORMAT(20A4) 

503 FORMAT(IX,20A4) 
read(l,*) 

READ (1,*) IFLAG,NLOWER,NUPPER 
WRITE (6,558) IFLAG,NLCWER,NUPPER 
558 FORMAT (///2X, ', /, 

1 2X, 'IFLAG (0:NACA, 1:INPUT) ,15,/, 

2 2X, 'NO. PANELS UPPER SURFACE -' ,15,/, 

3 2X, |NO. PANELS LOWER SURFACE -' ,15,/, 

IF (IFLAG '.NE. 0) RETURN 
read(l,*) 

READ (1,*) NACA 
C WRITE (6,501) NACA 
IEPS - NACA/1000 

IPTMAX - NACA/100 - 10*IFPS 

ITAU - NACA - 1000*IEPS - 

EPSMAX - IEPS*0.01 

PTMAX - IPTMAX*0.1 


100*IPTMAX 
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633 

634 

635 

636 
631 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 


TAU - ITAU*0.01 

IF (IEPS .LT. 10) RETURN 

PTMAX - 0.2025 

EPSMAX - 2.6595*PTMAX**3 

RETURN 

END 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C SUBROUTINE INFL (NITR) 

C CALCULATE INFLUENCE COEFFICIENTS 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE INFL (NITR) 

COMMON /BOD/ IFLAG,NLOWER,NUPPER,NODTOT,X(202),Y(202), 

♦ COSTHE (201), SINTHE (201), SS,NP1,NP2 
COMMON /NUM/ PI,PI2INV 

COMMON /HAK/ VYW,VXW,KAKE,DT 

CCM40N /CORV/ CV(200),XC(200),YC(200),M,TD,CCVX(200),CCVY(200) 
COMMON /INF1/ AAN(201,201),BBN(201,201) ,AYNP1 (201) ,BYNP1 (201) 
COMMON /INF2/ SUMCCN(201),SUMCCT(201),CYNP1(200),CXNP1(200) 

CCM40N /PINTG/AANP (201, 201, 6),BBNP (201,201,6) 

DIMENSION PLOC(6) 

DATA PLOC/.03376524,.16939531,.38069041, 

♦ .61930959,.83060469,.96623476/ 

JBEG - NP1 

IF {(M .GT. 1) .OR. (NITR .GT. 0)) GO TO 510 
JBEG - 1 

C AAN(I,J) s NORMAL VELOCITY INDUCED AT MID-POINT OF I-TH PANEL 
C BY UNIT STRENGTH DISTRIBUTED SOURCE ON THE J-TH PANEL 

C BBN(I,J) : NORMAL VELOCITY INDUCED AT MID-POINT OF I-TH PANEL 
C BY UNIT STRENGTH DISTRIBUTED VORTEX ON THE J-TH PANEL 

DO 120 I - 1, NODTOT 
XMID - .5* (X(I) + X(I+1)) 

YMID - .5* (Y(I) + Y(1+1) ) 

DO 110 J - 1,NODTOT 
FLOG - 0.0 

FT AN - PI 

IF (J .EQ. I) GO TO 100 
DXJ - XMID - X(J) 

DXJP - XMID - X(J+1) 

DYJ - YMID - Y(J) 

DYJP - YMID - Y(J+l) 

FLOG - .5*ALOG((DXJP*DXJP+DYJP*DYJP)/(DXJ*DXJ+DYJ*DYJ)) 

FTAN - ATAN2(DYJP*DXJ-DXJP*DYJ,DXJP*DXJ+DYJP*DYJ) 

100 CTIMTJ - COSTHE(I)*COSTHE(J) + SINTHE(I)*SINTHE(J) 

STIMTJ - SINTHE(I)*COSTHE(J) - COSTHE(I)‘SINTHE(J) 

AAN(I,J) - PI2INV*(FTAN*CTIMTJ + FLOG‘STIMTJ! 

BBN(I,J) - PI2INV* <FLOG*CTIMTJ - FTAN*STIMTJ) 

110 CONTINUE 
120 CONTINUE 
510 CONTINUE 
C BEG COEFF POT INTEGR 

DO 122 I - 1,NODTOT 
DO 122 K - 1,6 

XMID - X(I) + PLOC(K) * (X(I+1) -X(I)) 

YMID - Y(I) + PLOC(K)*(Y(I+1)-Y(D) 

DO 122 J - JBEG,NP1 
DXJ « XMID - X(J) 

DXJP - XMID - X(J+1) 

DYJ - YMID - Y(J) 

DYJP - YMID - Y(J+l) 

FLOG - .5*ALOG((DXJP*DXJP+DYJP*DYJP)/(DXJ*DXJ+DYJ*DYJ)) 

FTAN - ATAN2(DYJP*DXJ-DXJP*DYJ,DXJP*DXJ+DYJP*DYJ) 

CTIMTJ - COSTHE(I)‘COSTHE(J) + SINTHE(I)*SINTHE(J) 

STIMTJ - SINTHE(I)*COSTHE(J) - COSTHE(I)‘SINTHE(J) 

IF (I .EQ. J) FTAN - PI 

AANP(I,J,K) - PI2INV*(FTAN*CTIMTJ + FLOG*STIMTJ) 

122 BBNPd, J,K! - PI2INV* (FLOG*CTIMTJ - FTAN*STIMTJ) 

C END COEFF POT INTEGR 
I - NP1 

XMID - .5* (X(I) + X(I+1)) 

YMID - .5* (Y(I) + Y(M)| 

DO 130 J - 1,NP1 
FLOG - 0.0 

FTAN - PI 

IF (J .EQ. I) GO TO 135 
DXJ - XMID - X(J) 

DXJP - XMID - X(J+1) 

DYJ - YMID - Y(J) 

DYJP - YMID - Y(J+l) 
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744 

745 

746 

747 

748 

749 

750 

751 

752 
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754 

755 

756 

757 
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760 

761 
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763 
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765 
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767 

768 
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770 
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FLOG - . 5*ALOG ((DXJP*DKJP4DY JP*DYJP) / (DXJ‘DXJ*DYJ*DYJ)) 

FT AN - ATAN2 (DYJP*DXJ-DXJP*DYJ, DXJP*DXJ4DYJP*DYJ) 

135 CTIMTJ - COSTHE(I)‘COSTHE(J) ♦ SXNTHE(I)*SINTHE(J) 

STIMTJ - SINTHE(I)‘COSTHE(J) - COSTHE(I)‘SINTHE(J) 

AAN(I,J) - PI2INV*(FTAN*CTIMTJ * FLOG*STIMTJ) 

BBN(I, J) - PI2INV*(FLOG*CTIMTJ - FTAN‘STIMTJ) 

C AYNPl(J) : Y - VELOCITY INDUCED AT MID POINT OF WAKE ELEMENT 
C (NP1-TH PANEL) BY UNIT STRENGTH DISTRIBUTED SOURCE 

C ON J-TH PANEL 

C BYNP1(J) : Y - VELOCITY INDUCED AT MID POINT OF WAKE ELEMENT 
C (NP1-TH PANEL) BY UNIT STRENGTH DISTRIBUTED VORTEX 

C ON J-TH PANEL 

AYNPl(J) - PI2INV*(FTAN*COSTHE(J) - FLOG*SINTHE<J)) 

BYNPl(J) - PI2INV*(FLOG*COSTHE(J) ♦ FTAN*SINTHE(J)) 

130 CONTINUE 

DO 140 I - 1,NODTOT 
XMID - .5* (X(I) + XU+1)) 

YMID - .5* (Y (I) 4 Y(I + 1)) 

J - NP1 

DXJ - XMID - X{J) 

DXJP - XMID - X(j4l) 

DYJ - YMID - Y(J) 

DYJP - YMID - Y(J+l) 

FLOG - .5*ALOG((DXJP*DXJP+DYJP*DYJP)/(DXJ*DXJ+DYJ*DYJ)) 

FTAN - ATAN2(DYJP*DXJ-DXJP*DYJ, DXJP*DXJ4DYJP‘DYJ) 

CTIMTJ - COSTHE(I)*COSTHE(J) + SINTHE(I)*SINTHE(J) 

STIMTJ - SINTHE(I)*COSTHE(J) - COSTHE(I)‘SINTHE(J) 

AAN(I,J) - PI2INV*(FTAN*CTIMTJ + FLOG*STIMTJ) 

BBN(I,J) - PI2INV*(FLOG*CTIMTJ - FTAN*STIMTJ) 

140 CONTINUE 

IF (M.EQ.l) RETURN 
MM1 - M - 1 

C CYNP1(N) s Y - VELOCITY INDUCED AT MID POINT OF WAKE ELEMENT 
C (NP1-TH PANEL) BY UNIT STRENGTH N-TH CORE VORTEX 

C CXNPl(N) s X - VELOCITY INDUCED AT MID POINT OF WAKE ELEMENT 
C (NP1-TH PANEL) BY UNIT STRENGTH N-TH CORE VORTEX 

XMID - 0.5* (X(NP1) + X(NP14l)) 

YMID - 0.5*(Y(NP1) + Y(NP1+1)) 

DO 230 N - 1.MM1 

DX - XMID - XC(N) 

DY - YMID - YC(N) 

DIST2 - DX*DX+DY*DY 

CYNPl(N) - -PI2INV*DX/DIST2 
CXNPl(N) - +PI2INV*DY/DIST2 
230 CONTINUE 

IF (NITR.GT.0) RETURN 

C CCN(I,J) : NORMAL VELOCITY INDUCED AT MID-POINT OF I-TH PANEL 
C BY UNIT STRENGTH N-TH CORE VORTEX 

C CCT(I.J) : TANGENTIAL VELOCITY INDUCED AT MID-POINT OF I-TH PANEL 
C BY UNIT STRENGTH N-TH CORE VORTEX 

DO 220 I - 1,NODTOT 
XMID - 0.5* (X{I) 4 X(I+1)) 

YMID - 0.5*(Y(I) + Y1I+11) 

SUMCCN(I) - 0.0 
SUMCCT(I) - 0.0 
DO 210 N - 1,MM1 
DX - XMID - XC(N) 

DY - YMID - YC(N) 

DIST - SQRT(DX*DX+DY*DY) 

COSTHN - DX/DIST 
SINTHN - DY/DIST 

CTIMTN - COSTHE(I)‘COSTHN + SINTHE(I)*SINTHN 

STIMTN - SINTHE(I)‘COSTHN - COSTHE(I)‘SINTHN 

CCN - -CTIMTN/DIST 

CCT - -STIMTN/DIST 

SUMCCN(I) - SUMCCN(I) 4 CCN*CV(N) 

SUMCCT(I) - SUMCCT(I) 4 CCT*CV(N) 

210 CONTINUE 

SUMCCN(I) - PI2INV*SUMCCN(I) 

SUMCCT(I) - PI2INV*SUMCCT(I) 

220 CONTINUE 
C END COEFF POT INTEGR 
RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C SUBROUTINE KUTTA (ALPHA,SINALF,COSALF, CMEGA,UX, UY) 

C USING KUTTA CONDITION TO DETERMINE VORTICITY 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
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C 


50 

C 


120 

C 


100 

130 


SUBROUTINE KUTTA (ALPHA,SINALF,COSALF,CMEGA,UX,UY) 

COMMON /BOD/ IFLAG,NLOHER,NUPPER,NODTOT.X(2021,Y(202). 

♦ CQSTHE(201),SINTHE(201),SS,NP1,NP2 

CCM40N /COF/ A(201,211),NEQS 
COWON /SING/ 0(200) ,GAM4A,QK(200) ,GAMK 
COMMON /HAK/ VW,VXW.HAKE, DT 

CCM40N /CORV/ CV(200),XC(200),YC(200),M,TD,CCVX(200),CCVY(200) 
COMMON /INF1/ AAN(201,201),BBN(201,201),AYNP1(201),BYNP1(201) 
COWON /INF2/ SUMCCN (201), SUMCCT (201) ,CYNP1 (200) ,CXNP1 (200) 
COMMON /GUST/ UG(200),VG(200),XGF,UGUST,VGUST 
DIMENSION B1(200),B2(200),AA(2),BB(2) 

RETRIEVE SOLUTION FROM A-MATRIX 
DO 50 I - 1, NODTOT 

B1(I) - A(I,NP1) 

B2 (I) - A(I,NP2) 

FIND VT AT TRAILING EDGE PANELS 
DO 130 K - 1,2 
IF (K .EQ. 1) I - 1 
IF (K .EQ. 2) I - NODTOT 
XMID - 0.5 * (X(I) + X (1+1)) 

YMID - 0.5 * (Y(I) ♦ Y(1+1)) 

VTANG - ((1. +UG(I)) *COSALF-VG(I) *SINALF+UX) ‘COSTHE (I) 

+ ♦ ((l.+UG(I))*SINALF+VG(I)*COSALF+UY)*SINTHE(I) 

+ + CMEGA* (YMID*COSTHE (I) - XMID*SINTHE (I)) 

AA(K) - - AAN(I,NP1) *SS/WAKE 

BB(K) - VTANG + AAN(I,NP1) *SS*GA3WA/WAKE 

DO 120 J - 1,NODTOT 

AA(K) - AA(K) + AAN(I,J) - BBN(I,J)*B1 (J) 

BB(K) - BB(K) - BBN(I,J)*B2(J) 

CONTINUE 

ADD CORE VORTEX CONTRIBUTION 
IF (M.EQ.l) GOTO 100 
BB(K) - BB(K) + SUMCCT(I) 

CONTINUE 

CONTINUE 


C 

EE 
FF 
GG 
RADI 
GAMK 
C 

DO 160 
160 QK(I) 

RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C SUBROUTINE NACA45(Z,THICK,CAMBER,BETA) 

C EVALUATE THICKNESS AND CAMBER 

C FOR NACA 4- OR 5-DIGIT AIRFOIL 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE NACA45(Z,THICK,CAMBER,BETA) 

COMMON /PAR/ NACA,TAU,EPSMAX,PTMAX 
THICK - 0.0 

IF (Z .LT. l.E-10) GO TO 100 

THICK - 5.*TAU*(.2969*SQRT(Z) - Z*(.126 + Z*(.3537 
+ - Z* (.2843 - Z*.1015)))) 

100 IF (EPSMAX .EQ. 0.0) GO TO 130 
IF (NACA .GT. 9999) GO TO 140 
IF (I .GT. PTMAX) GO TO 110 
CAMBEF - EPSMAX/PTMAX/PTMAX*(2.*PTMAX - Z)*Z 
DCAMK’ - 2.*EPSMAX/PTMAX/PTMAX*(PTMAX - Z) 


SATISFYING KUTTA CONDITION — SOLVE FOR VORTEX STRENGTH 

- AA(1)*AA(1) - AA(2)*AA(2) 

- AA(1) *BB (1) - AA(2) *BB (2) - SS/DT 

- BB(1) *BB (1) - BB (2) *BB (2) ♦ 2.*SS*GAM4A/DT 

- SQRT(FF*FF-EE*GG) 

- (-FF - RADI)/EE 
CALCULATE SOURCE STRENGTH 
I - 1,NODTOT 

- GAMK*B1(I) + B2(I) 


GO TO 120 


110 CAMBER - EPSMAX/(1.-PTMAX)**2*(1. + Z - 2.*PTMAX)*(1. - Z) 
DCAMDX - 2.‘EPSMAX/(1.-PTMAX)**2*(PTMAX - Z) 

120 BETA - ATAN(DCAM' X) 

RETURN 

130 CAMBER - 0.0 
BETA - 0.0 
RETURN 

140 IF (Z .GT. PTMAX) GO TO 150 

W - Z/PTMAX 

CAMBER - EPSMAX*W*((W - 3.)*W ♦ 3. - PTMAX) 

DCAMDX - EPSMAX*3.*W*(1. - W)/PTMAX 
GO TO 120 

150 CAMBER - EPSMAX*(1. - Z) 

DCAMDX - - EPSMAX 
GO TO 120 
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END 
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869 

c 

SUBROUTINE PRESSs 

870 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

871 


SUBROUTINE PRESSs 

872 


CCPMON 

/BOD/ IFLAG,NLOWER,NUPPER,NODTOT,X(202),Y(202), 

873 


+ 

COSTHE (201), SINTHE (201) ,SS,NP1,NP2 

874 


COMMON 

/CPD/ CP(200),pivot 

875 


character filnq*15,alpn*10 

876 


alpn - 

•0123456789' 

877 


filnq 

- 'cps.d' 

878 


open (unit-90, file-filnq, form** formatted') 

879 

C..Compute cp at mid point of i-th panel 

880 


WRITE (90, • (2fl2.5)M 

881 


> 

0.5* (x (i) +x(i+1) ) , CPU), i-l,nodtot) 

882 


close(90) 

883 


RETURN 


884 


END 


885 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

886 

c 

SUBROUTINE PRESS (SINALF.COSALF, CMEGA, UX,UY) C 

887 

c 


COMPUTE UNSTEADY FLOW PRESSURE DISTRIBUTION C 

888 

c 


AND VELOCITY POTENTIAL AT MID-POINTS OF PANELS C 

889 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

890 


SUBROUTINE PRESS (SINALF,COSALF, CMEGA,UX,UY,ALPHA) 

891 


COMMON 

/BOD/ IFLAG,NLOWER,NUPPER,NODTOT,X(202),Y(202 ) , 

892 


+ 

COSTHE(201),SINTHE(201), SS, NP1,NP2 

893 


COMMON 

/CPD/ CP(200),pivot 

894 


COMMON 

/NUM/ PI,PI2INV 

895 


C0M4ON 

/SING/ Q(200) ,GAMMA,QK(200), GAMK 

896 


COMMON 

/WAK/ VYW,VXW,WAKE,DT 

897 


COMMON 

/CORV/ CV(200) ,XC(200), YCI200) ,M,TD,CCVX(200) ,CCVY(200) 

898 


COMMON 

/INF1/ AAN(201,201),BBN(201,201), AYNP1(201),BYNP1(201) 

899 


COMMON 

/INF2/ SUMCCN(201),SUMCCT(201),CYNP1(200),CXNP1(200) 

900 


COMMON 

/POT/ PHI(200),PHIK(200) 

901 


COMMON 

/GUST/ UGI200),VG(200),XGF,UGUST,VGUST 

902 


COMMON 

/EXTV/ UE(200) 

903 


COMMON 

/MAINout/ ialfao(20), naot, nao 

904 


COMMON 

/DELPHI/ DPHITE,DPHIMP 

905 


character filnq*15,alpn*10 

906 


alpn - 

•0123456789' 

907 

c 

FIND 

TANGENTIAL VELOCITY VT AT MID-POINT OF I-TH PANEL 

908 


DO 130 

I - 1,NODTOT 

909 


XMID 

- 0.5 * (XU) + X(M! ) 

910 


YMID 

- 0.5 * (Y(I) + YU+1>) 

911 


DX 

- (XU+1) - X(I)) 

912 


DY 

- (Y(1+1) - YU)) 

913 


DIST 

- SWT (DX*DX+DY*DY) 

914 


VSX 

- (l.+UG(I))*COSALF-VG(I)*SINALF + CMEGA*YMID + UX 

915 


VSY 

- (l.+UGU)) *SINALF+VG(I)*COSALF - CMEGA*XMID ♦ UY 

916 


VS 

- VSX*VSX ♦ VSY*VSY 

917 


VTANG 

- ((l.+UGU)) *COSALF-VG(I)*SINALF+UX)‘COSTHE (I) 

918 


+ 

♦ ((l.+UGU) )*SINALF+VG (I) *COSALF+UY)‘SINTHE (I) 

919 


♦ 

♦ CMEGA*(YMID*COSTHE(I) - XMID*SINTHE(I)) 

920 


VTFREE 

- VTANG 

921 

C8810 

DPHFRE 

- DPHFRE + VTANG*DIST 

922 

C8811 

DPHWKE 

- DPHWKE + SS*(GAMMA-GAMK)*AAN(I,NP1) /WAKE*DIST 

923 


VTANG 

- VTANG + SS*(GAMMA-GAMK)*AAN(I,NP1)/WAKE 

924 


DO 120 

J - 1,NODTOT 

925 


VTANG 

- VTANG - BBN(I,J)*QK(J) + t N(I,J)*GAMK 

926 

C8812 

DPHGAM 

- DPHGAM + AAN(I,J)*GAMK*DIST 

927 

C8813 

DELPHI (J) - DELPHI (J) - BBN(I, J)*QK(J)*DIST 

928 

120 

CONTINUE 

929 

c 

ADD 

CORr VORTEX CONTRIBUTION 

930 


IF (M.EQ.l, GOTO 150 

931 


VTANG 

- VTANG + SUMCCT(I) 

932 

C8814 

DPHWAK 

- DPHWAK + SUMCCT(I)*DIST 

933 

150 

CONTINUE 

934 


PHIK(I) 

- (VTANG-VTFREE)*DIST 

935 


CP(I> 

- VS - VTANG*VTANG 

936 


UE (I) 

- VTANG 

937 

130 

CONTINUE 

938 

c 

COMPUTE 

DISTURBANCE POTENTIAL BY LINE INTEGRAL OF VELOCITY FIELD 

939 

c 

INTEGRATION FROM UPSTREAM (AT INFINITY) TO THE LEADING EDGE 

940 


NPHI 

- 10 * NLOWER 

941 


PINK 

- 0.0 

942 


XL 

- 0.0 

943 


DO 30 

L - 1,NPHI 

944 


FRACT 

- FLQAT(L)/FLOAT(NPHI) 
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972 

973 

974 

975 

976 

977 

978 
97 9 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 


C 


40 

20 

C 


60 

50 

30 


XLP - -10.0 * (1.0 - COS(0.5*PI*FRACT)) 

DELX - XL - XLP 

XMID - 0.5*(XL+XLP)‘COSALF 

YMID - 0.5*(XL+XLP)*SINALF 

XL - XLP 

VELX - UGUST 

ADD CONTRIBUTION OF J-TH PANEL 
DO 20 J - 1,NP1 
DXJ - XMID - X(J) 

DXJP - XMID - X(J+1) 

DYJ - YMID - Y(J) 

DYJP - YMID - Y(J+l) 

FLOG - .5*ALOG((DXJP*DXJP+DYJP*DYJP) /(DXJ*DXJ+DYJ*DYJ)) 

FTAN - ATAN2(DYJP+DXJ-DXJP+DYJ,DXJP*DXJ+DYJP*DYJ) 

CALMTJ - -COSALF’COSTHE(J) - SINALF'SINTHE <J) 

SALMTJ - -SINALF*COSTHE(J) + COSALF*SINTHE(J) 

APY - PI2INV*(FTAN‘CALMTJ + FLOG*SALMTJ) 

BPY - PI2INV*(FLOG*CALMTJ - FTAN*SALMTJ) 

IF (J .EQ. NP1) GO TO 40 

VELX - VELX - BPY*QK(J) +GAMK*APY 

GO TO 20 

VELX - VELX + SS'APY*(GAMMA-GAMK)/WAKE 
CONTINUE 

ADD CORE VORTEX CONTRIBUTION 
IF (M .EQ. 1) GO TO 50 
MM1 - M - 1 
DO 60 N - 1,MM1 
DX - XMID - XC(N) 

DY - YMID - YC(N) 

DIST - SQRT(DX*DX+DY*DY! 

COSTHN - DX/PIST 
SINTHN - DY/DIST 

SALMTN - -SINALF*COSTHN + COSALF*SINTHN 
CPT - -PI2INV*SALMTN/DIST 
VELX - VELX + CPT*CV(N) 

CONTINUE 

PINK « PINK + VELX * DELX 
CONTINUE 


C COMPUTE DISTURBANCE POTENTIAL AT MID-POINT OF I-TH PANEL 

C LOWER SURFACE 

DO 230 I - l.NLOWER 
PH - -PINK 

DO 240 J - I.NLOWER 
240 PH - PH - PHIK(J) 

PHIK(I) - PH 
230 CONTINUE 

8850 PHILOW - PHIK(l) 

DO 270 I - 1,NLOWER-1 

PHIK(I) - 0.5*(PHIK(I) + PHIK(I+1)) 

270 CONTINUE 

PHIK(NLCWER) - 0.5+(PHIK(NLCWER) - PINK) 

C UPPER SURFACE 

DO 250 I - NODTOT,NLCWER+1,-1 
PH - -PINK 

DO 260 J - NLOWER+1,1 
260 PH - PH + PHIK(J) 

PHIK(I) - PH 
250 CONTINUE 

8851 PHIUPP - PHIK(NODTOT) 

DO 280 I - NODTOT,NLCMER+2,-1 
PHIK(I) - 0.5+(PHIK(I) + PHIK(I-l)} 

280 CONTINUE 

PHIK(NLOWER+1) - 0.5*(PHIK(NL0WER+1) - PINK) 

8871 DPHITE - (PHIUPP-PHILCW)/SS 

8872 DPHIMP - (PHIK(NODTOT)-PHIK(l))/SS 

DO 290 I - 1,NODTOT 

290 CP (I) « CP (I) - 2 .* (PHIK(I) -PHI (I)) /DT 

if( ( ialfao(nao) .gt. ialfao(nao-l) .and. 

> alpha .ge. float(ialfao(nao))/10.) .OR. 

> ( ialfao(nao) .It. ialfao(nao-l) .and. 

> alpha .le. float(ialfao(nao))/10.) ) then 
itn « ialfao(nao) 

i3 - itn/100 + 1 
i2 - (itn - (13 — 1) +100) /10 + 1 
il - (itn - (13—1) *100 - (12-1) *10) + 1 
if( ialfao(nao) .It. ialfao(nao-l)) then 
filnq - , cpd , //alpn(i3:i3)//alpn(i2:i2)//alpn(il:il)//’,d , 
else 
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i 


1023 



filnq « , cpu'//alpn(i3:i3)//alpn(i2:i2)//alpn(il:il)//'.d' 


1024 



endif 


1025 



nao - nao+1 


1026 



if(nao . <j|t. naot) nao - 1 


1027 



open (unit-90,file-filnq,form-* formatted*) 


1028 

C 

. .Compute cp at mid point of i-th panel 


1029 



WRITE (90,*(2fl2.6)*) 


1030 



> ( 0.5*(x(i)+x(i+l)), CP(I), i-l,nodtot) 


1031 



close(90) 


1032 



endif 


1033 



RETURN 


1034 



END 


1035 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

1036 

c 


SUBROUTINE SETUP 

C 

1037 

c 


SETUP COORDINATES OF PANEL NODES AND SLOPES OF PANELS 

c 

1038 

c 


COORDINATES ARE READ FROM INPUT DATA FILE UNLESS 

c 

1039 

c 


THE AIRFOIL IS OF NACA XXXX OR NACA 230XX TYPE 

c 

1040 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

1041 



SUBROUTINE SETUP 


1042 



CC9WON /BOD/ IFLAG,NLOWER,NUPP£R,NODTOT,X(202),Y(202), 


1043 



+ COSTHE(201),SINTHE(201), SS,NP1,NP2 


1044 



COMMON /NUM/ PI.PI2INV 


1045 



PI - 3.1415926585 


1046 



PI2INV - .5/PI 


1047 

c 


SET COORDINATES OF NODES ON BODY SURFACE 


1048 



IF (IFLAG .eq. 0) then 


1049 



NPOINT - NLOWER 


1050 



SIGN - -1.0 


1051 



NSTART - 0 


1052 



DO 110 NSURF - 1,2 


1053 



DO 100 N - l.NPOINT 


1054 



FRACT - FLOAT(N-l)/FLOAT(NPOINT) 


1055 



Z - .5*(1. - COS(PI*FRACT)) 


1056 



I - NSTART + N 


1057 



CALL BODY(Z,SIGN,X(I) , Y(I) ) 


1058 

100 

CONTINUE 


1059 



NPOINT - NUPPER 


1060 



SIGN - 1.0 


1061 



NSTART - NLOWER 


1062 

110 

CONTINUE 


1063 



NODTOT - NLOWER + NUPPER 


1064 



X(NODTOT+1) - X(l) 


1065 



Y (NODTOT+1) - YC! 


1066 



ELSE 


1067 



NODTOT - NLOWER + NUPPER 


1068 

c 


READ (1,*) (X(I),I-l,NODTOT+l) 


1069 

c 


WRITE (6,501) (X(I),I-1,NODTOT*I) 


1070 

c 


READ (1,*) (Y(I),1-1,NODTOT+1) 


1071 

c 


WRITE (6,501) (Y(I),I-1,NODTOT+1) 


1072 

c 

501 

FORMAT (6F10.6) 


1073 



READ (1,+) (X(I),Y(i),1-1,NODTOT+1) 


1074 



ENDIF 


1075 



NP1 - NODTOT + 1 


1076 



NP2 - NODTOT ♦ 2 


1077 

c 

.SET 

SLOPES OF PANELS AND CALCULATE AIRFOIL PERIMETER 


1078 



SS - 0.0 


107 9 



DO 200 I - 1,NODTOT 


1080 



DX - X(I + 1) - Xd) 


1081 



DY - Yd+1) - Y(I) 


1082 



DIST - SQRT(DX*DX +DY*DY) 


1083 



SS - SS + DIST 


1084 



SINTHE(I) - DY/DIST 


1085 



COSTHF.I) - DX/DIST 


1086 

200 

CONTINJE 


1087 



RETURN 


1088 



END 


1089 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

1090 

c 


SUBROUTINE TEWAK (SINALF,COSALF) 

c 

1091 

c 


COMPUTE WAKE ELEMENT AT THE TRAILING EDGE 

c 

1092 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

1093 



SUBROUTINE TEWAK (SINALF,COSALF) 


1094 



COMMON /BOD/ IFLAG,NLOWER,NUPPER,NODTOT,X(202),Y(202), 


1095 



+ COSTHE(201),SINTHE(201),SS,NP1,NP2 


1096 



COMMON /COF/ A(201,211),NEQS 


1097 



COMMON /SING/ Q(200).GAMMA,QK(200),GAMK 


1098 



COMMON /WAK/ VYW,VXW.WAKE,DT 


1099 



COMMON /WAK2/ VYWK.VXWK 


1100 



COMMON /CORV/ CV(200), XC(200), YC (200) ,M, TD.CCVX (200) ,CCVY (200) 
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1101 

1102 

1103 

1104 

1105 

1106 
1107 
1106 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 
1117 

me 

1119 

1120 
1121 
1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 
1161 
1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 


COMMON /INF1/ AAN(201,201), BBN(201,201),AYNP1(201),BYNP1(201) 
COMMON /INF2/ SUMCCN1201),SUMCCT(201),CYNP1(200),CXNP1(200) 

COMMON /GUST/ UG(200),VG(200),XGF,UGUST,VGUST 
XMID - 0.5 * (X(NP1) + X (NP2)) 

YMID - 0.5 * (Y(NP1) + Y(NP2)) 

UGW - 0.0 

VGW • 0.0 

XG - XMID‘COSALF + YMID‘SINALF 

IF (XG .GT. XGF) GO TO 10 
UGW - UGUST 

VGW - VGUST 

10 VYWK - (1.+UGW)‘SINALF+VGW*COSALF 

VXWK - (l.+UGW)*COSALF-VGW‘SINALF 

DO 120 J - 1,NODTOT 

VYWK - VYWK ♦ AYNP1(J)*QK(J) + BYNP1(J)*GAMK 

120 VXWK - VXWK - BYNP1(J)*QK(J) + AYNP1(J)*GAMK 

C ADD CORE VORTEX CONTRIBUTION 

IF (M .EQ. 1) GO TO 140 
MM1 - M - 1 

DO 130 N - 1,MM1 

VYWK - VYWK + CYNP1(N)*CV(N) 

130 VXWK - VXWK + CXNP1(N)*CV(N) 

140 CONTINUE 
RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C SUBROUTINE VELDIS (SINALF, COSALF) 

C COMPUTE STEADY FLOW PRESSURE DISTRIBUTION 

C AND VELOCITY POTENTIAL AT MID-POINTS OF PANELS 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE VELDIS(SINALF, COSALF) 

COMMON /BOD/ IFLAG,NLOWER,NUPPER, NODTOT, X(202), Y(202), 

+ COSTHE(201),SINTHE(201),SS, NP1.NP2 

COMMON /COF/ A(201,211),KUTTA 
COMMON /CPD/ CP(200),pivot 
COMMON /NUM/ PI,PI2INV 
COMMON /SING/ Q (200),GAMMA,QK(200),GAMK 
COMMON /POT/ PHI (200) ,PHIK(200) 

COMMON /GUST/ UG(200),VG(200),XGF,UGUST,VGUST 
COMMON /EXTV/ UE(200) 

8870 COMMON /DELPHI/ DPHITE,DPHIMP 
C RETRIEVE SOLUTION FROM A-MATRIX 

DO 50 I - 1,NODTOT 
50 Q(I) - A(I,KUTTA+1) 

GAMMA - A(KUTTA,KUTTA+1) 

C FIND VT AND CP AT MID-POINT OF I-TH PANEL 

DO 130 I - 1,NODTOT 
XMID - . 5* (X (I) + X (1 + 1)) 

YMID - .5* (Y(I) + Y(1 + 1)) 

“ VTANG »> V/V(inf) 

VTANG - COSALF*COSTHE(I) + SINALF*SINTHE(I) 

VTFREE - VTANG 

C ADD CONTRIBUTION OF J-TH PANEL 

DO 120 J - 1,NODTOT 
FLOG - 0.0 

FTAN - PI 

IF (J .EQ. I) GO TO 100 
DXJ - XMID - X(J> 

DXJP - XMID - X(J+1) 

DYJ - YMID - Y(J) 

DYJP - YMID - Y(J+l) 

FLOG - . 5*ALOG ((DXJPOXJP+DYJP*DYJP) / (DXJ*DXJ+DYJ*DYJ) ) 

FTAN - ATAN2(DYJP*DXJ-DXJP*DYJ,DXJP*DXJ+DYJP*DYJ) 

100 CTIMTJ - COSTHE(I)‘COSTHE(J) + SINTHE(I)‘SINTHE(J) 

STIMTJ - SINTHE(I)‘COSTHE(J) - COSTHE(I)‘SINTHE(J) 

AA - PI2INV‘(FTAN*CTIMTJ + FLOG*STIMTJ) 

B - PI2INV*(FLOG'CTIMTJ - FTAN‘STIMTJ) 

VTANG - VTANG - B‘Q(J) +GAMMA*AA 
120 CONTINUE 

CPU) - 1.0 - VTANG‘VTANG 

UE(I) - VTANG 

write (91,*)xmid,abs(vtang) 

WRITE (6,1050) I,XMID,Q(I) .GAMMA,CP(I) ,UE (I) 

C WRITE (19,*) XMID,-CPU) 

C INITIAL SET-UP FOR DISTURBANCE POTENTIAL CALCULATION 

DX - XU + 1) - X(I) 

DY - Y(1+1) - Y(I) 
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1179 


DIST - SQRT(DX*DX+DY*DY) 

1180 


PHI(I) - (VTANG-VTFREE)* DI ST 

1181 

130 

CONTINUE 

1182 

C 

COMPUTE DISTURBANCE POTENTIAL BY LINE INTEGRAL OF VELOCITY FIELD 

1183 

C 

INTEGRATION FROM UPSTREAM (AT INFINITY) TO THE LEADING EDGE 

1184 


NPHI - 10 * NLOWER 

1185 


PIN - 0.0 

1186 


XL - 0.0 

1187 


DO 30 L - 1,NPHI 

1188 


FRACT - FLOAT(L)/FLOAT(NPHIJ 

1189 


XLP - -10.0 * (1.0 - COS(0.5*PI*FRACT)) 

1190 


DELX - XL - XLP 

1191 


XMID - 0.5*(XL+XLP)*COSALF 

1192 


YMID - 0.5*(XL+XLP)‘SINALF 

1193 


XL - XLP 

1194 


VELX - UGUST 

1195 

C 

ADD CONTRIBUTION OF J-TH PANEL 

1196 


DO 20 J « 1, NODTOT 

1197 


DXJ - XMID - X(J) 

1198 


DXJP - XMID - X(J+1) 

1199 


DYJ - YMID - Y(J) 

1200 


DYJP - YMID - Y(J+l) 

1201 


FLOG - .5*ALOG((DXJP*DXJP+DYJP*DYJP)/(DXJ*DXJ+DYJ*DYJ)) 

1202 


FTAN - ATAN2(DYJP*DXJ-DXJP*DYJ,DXJP*DXJ+DYJP*DYJ) 

1203 


CALMTJ - -COSALF'COSTHE(J) - SINALF*SINTHE(J) 

1204 


SALMTJ - -SINALF*COSTHE(J) + COSALF*SINTHE(J) 

1205 


APY - PI2INV*(FTAN*CALMTJ + FLOG*SALMTJ) 

1206 


BPY - PI2INV*(FLOG*CALMTJ - FTAN*SALMTJ) 

1207 


VELX - VELX - BPY*Q(J) +GA»4A*APY 

1208 

20 

CONTINUE 

1209 


PIN - PIN + VELX * DELX 

1210 

30 

CONTINUE 

1211 

C 

COMPUTE DISTURBANCE POTENTIAL AT MID-POINT OF I-TH PANEL 

1212 

c 

LOWER SURFACE 

1213 


DO 230 I - 1,NLOWER 

1214 


PH - -PIN 

1215 


DO 240 J - I,NLCWER 

1216 

240 

PH - PH - PHI (J) 

1217 


PHI (I) « PH 

1218 

230 

CONTINUE 

1219 

8861 

PHILOW - PHI(1) 

1220 


DO 270 I - 1,NLCWER-1 

1221 


PHI (I) - 0.5*(PHI(I) * PHI(1*1): 

1222 

270 

CONTINUE 

1223 


PHI(NLOWER) - 0.5*(PHI(NLOWER) - PIN) 

1224 

C 

UPPER SURFACE 

1225 


DO 250 I - NODTOT,NLOWER*1,-1 

1226 


PH - -PIN 

1227 


DO 260 J - NLCWER*1,1 

1228 

260 

PH - PH + PHI (J) 

1229 


PHI (I) - PH 

1230 

250 

CONTINUE 

1231 

8860 

PHIUPP - PHI(NODTOT) 

1232 


DO 280 I « NODTOT,NLOWER*2,-1 

1233 


PHI (I) - 0.5* (PHI (I) + PHI(I-l)) 

1234 

280 

CONTINUE 

1235 


PHI(NLCWER*1) - 0.5*(PHI(NLCWER+1) - PIN) 

1236 

1000 

FORMAT (/, 4X, 'J’,4X, 'X(J) ', 6X, 'Q(J) ', 5X, 'GAMMA', 5X, 

1237 


* 'CP(J)',6X,'V(J)',/) 

1238 

1050 

FORMAT(15,5F10.6) 

1239 

8871 

DPHITE - (PHIUPP-PHILOW)/SS 

1240 

8872 

DPHIMP *= (PHI (NODTOT)-PHI (1) )/SS 

1241 

C8862 

WRITE (8,8863) (PHIUPP-PHILCW)/SS 

1242 

C8863 

FORMAT (//IX,'CIRCULATION VIA POTENTIAL:',E14.6//) 

1243 


RETURN 

1244 


END 

1245 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

1246 


SUBROUTINE PINTEG(GAMMA,Q) 

1247 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

1248 


COMMON /BOD/ IFLAG,NLOWER,NUPPER,NODTOT,X(202),Y(202), 

1249 


+ COSTHE(201),SINTHE(201),SS,NP1,NP2 

1250 


COMMON /NUM/ PI,PI2INV 

1251 


COMMON /DELPHI/ DPHITE,DPHIMP 

1252 


COMMON /PINTG/AANP(201,201,6),BBNP(201,201, 6) 

1253 


DIMENSION Q(200) 

1254 


DIMENSION WGHT(6) 

1255 


DATA WGHT/.08566225,.18038079,.23395697, 

1256 


+ .23395697,.18038079,.08566225/ 
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1257 

c *•* 

PRECISE CONTOUR INTEGRATION “** 

1250 


SUMC - 0.0 

1259 


DO 8000 I - 1,NODTOT 

1260 


DX - (X(I + 1) - X(I)) 

1261 


DY - (YU + 1) - Y (I) ) 

1262 


DIST - SQRT(DX*DX+DY*DY) 

1263 


DO 8000 K - 1,6 

1264 


VTANG -0.0 

1265 


DO 8100 J - 1,NODTOT 

1266 

8100 

VTANG - VTANG - BBNP(I, J,K) *Q(J) + AANP (I, J,K)‘GAMMA 

1267 

8000 

SUMC - SUMC + VTANG*DIST*WGHT(K) 

1268 

C + ** 

DUMMY INTEGRATION ““ 

1269 


SUM - 0.0 

1270 

C INTEGRATION FROM TRAILING EDGE TO (1.0.-0.1) 

1271 


XMID - 1.0 

1272 


Y1 - 0.0 

1273 


DO 9100 K-1,10 

1274 


Y2 - -FLOAT(K)/100. 

1275 


YMID - 0.5*(Y1+Y2) 

1276 


DELY - Y2-Y1 

1277 


SUM1 - 0.0 

1278 


DO 9000 J - 1,NODTOT 

1279 


DXJ - XMID - X(J) 

1280 


DXJP - XMID - X(J+1) 

1281 


DYJ - YMID - Y (J) 

1282 


DYJP - YMID - Y(J+l) 

1283 


FLOG - .5*ALOG((DXJP*DXJP+DYJP*DYJP)/(DXJ*DXJ+DYJ*DYJ) 

1284 


FTAN - ATAN2!DYJP*DXJ-DXJP*DYJ, DXJP*DXJ+DYJP*DYJ) 

1285 


APY - PI2INV*(FTAN*COSTHE(J) - FLOG*SINTHE' J)) 

1286 


BPY - PI2INV*(FLOG*COSTHE(J) + FTAN*SINTHE(J)) 

1287 

9000 

SUM1 - SUM1 + APY‘Q(J) + BPY*GAMMA 

1288 


SUM - SUM + SUM1*DELY 

1289 


Y1 - Y2 

1290 

9100 

CONTINUE 

1291 

C INTEGRATION FROM (1.0,-0.1) TO (-0-1,-0.1) 

1292 


YMID - -0.1 

1293 


XI - 1.0 

1294 


DO 9200 K-1,100 

1295 


X2 - 1.0-1.l*FLOAT(K)/100. 

1296 


XMID - 0.5*(X1+X2) 

1297 


DELX - X2-X1 

1298 


SUM1 - 0.0 

1299 


DO 9250 J - 1,NODTOT 

1300 


DXJ - XMID - X(J) 

1301 


DXJP - XMID - X(J+1) 

1302 


DYJ - YMID - Y(J) 

1303 


DYJP - YMID - Y(J+l) 

1304 


FLOG - .5*ALOG( (DXJP‘DXJP+DYJP‘DYJP)/(DXJ+DXJ+DYJ*DYJ) 

1305 


FTAN - ATAN2(DYJP*DXJ-DXJP*DYJ,DXJP*DXJ+DYJP*DYJ) 

1306 


APY - PI2INV*(FTAN*COSTHE(J) - FLOG*SINTHE (J)) 

1307 


BPY - PI2INV*(FLOG*COSTHE(J) ♦ FTAN+SINTHE(J)) 

1308 

9250 

SUM1 - SUM1 - BPY*Q(J) + APY‘GAMMA 

1309 


XI - X2 

1310 


SUM - SUM + SUM1*DELX 

1311 

9200 

CONTINUE 

1312 

C INTEGRATION FROM !-0.1,-0.1) TO (-0.1,0.1) 

1313 


XMID - -0.1 

1314 


Y1 - -0.1 

1315 


DO 9300 K-1,20 

1316 


Y2 - -0.1+FLOAT(K)/100. 

1317 


YMID - 0.5*(Y1+Y2) 

1318 


DELY - Y2-Y1 

1319 


SUM1 - 0.0 

1320 


DO 9350 J - 1,NODTOT 

1321 


DXJ - XMID - X(J) 

1322 


DXJP - XMID - X(J+1) 

1323 


DYJ - YMID - Y(J) 

1324 


DYJP - YMID - Y(J+l) 

1325 


FLOG - .5‘ALOG((DXJP‘DXJP+DYJP‘DYJP)/(DXJ*DXJ+DYJ*DYJ) 

1326 


FTAN - ATAN2(DYJP*DXJ-DXJP*DYJ,DXJP‘DXJ+DYJP‘DYJ) 

1327 


APY - PI2INV*(FTAN‘COSTHE(J) - FLOG*SINTHE(J)) 

1328 


BPY - PI2INV*(FLOG*COSTHE(J) + FTAN‘SINTHE(J)) 

1329 

9350 

SUM1 - SUM1 + APY*Q(J) + BPY*GAMMA 

1330 


SUM - SUM + SUM1*DELY 

1331 


Y1 - Y2 

1332 

9300 

CONTINUE 

1333 

C INTEGRATION FROM (-0.1,0.1) TO (1.0,0.1) 

1334 


YMID - 0.1 
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1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 
1383 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 


XI - -0.1 

DO 9400 K-1,100 

X2 - -0.1+1.1*FLOAT(K)/100. 

XMID - 0.5*(X1+X2) 

DELX - X2-X1 
SUM1 - 0.0 

DO 9450 J - 1, NODTOT 
XMID - X(J) 

XMID - X(J+1) 

YMID - Y(J) 

YMID - Y(J+l) 

•5*ALOG((DXJP*DXJP+DYJP*DYJP)/(DXJ*DXJ+DYJ*DYJ)) 
ATAN2(DYJP*DXJ-DXJP*DYJ,DXJP*DXJ+DYJP*DYJ) 
PI2INV*(FTAN’COSTHE(J) - FLOG*SINTH£(J)) 

PI2INV*(FLOG*COSTHE(J) + FTAN*SINTHE(J)) 

SUM1 - BPY*Q(J) + APY*GAMMA 


DXJ 
DXJP 
DYJ 
DYJP 
FLOG 
FT AN 
APY 
BPY 

9450 SUM1 
XI - 
SUM 

9400 CONTINUE 
2 INTEGRATION 
XMID - 1 


X2 


SUM ♦ SUM1*DELX 


FROM 

0 


(1.0,0.1) TO TRAILING EDGE 


9550 


9500 
C9600 
C9660 
C + 

c *• 

c 

+ 

+ 

+ 

c + 


Y1 - 0.1 

DO 9500 K-1,10 

Y2 - 0.1-FLQAT(K)/100. 

YMID - 0.5*(Y1+Y2) 

DELY - Y2-Y1 
SUM1 - 0.0 
DO 9550 J - 1,NODTOT 

DXJ - XMID - X(J) 

DXJP - XMID - X (J+l) 

DYJ - YMID - Y (J) 

DYJP - YMID - Y(J+l) 

FLOG - .5*ALOG((DXJP*DXJP+DYJP*DYJP)/(DXJ*DXJ+DYJ*DYJ)) 

FTAN - ATAN2(DYJP*DXJ-DXJP*DYJ,DXJP*DXJ+DYJP*DYJ) 

APY - PI2INV*(FTAN*COSTHE(J) - FLOG*SINTHE(J)) 

BPY - PI2INV*(FLOG*COSTHE(J) + FTAN*SINTHE(J)) 

SUM1 - SUM1 + APY*Q(J) + BPY*GAMMA 

SUM - SUM + SUM1*DELY 

Y1 - Y2 
CONTINUE 

WRITE (6,9660) GAMMA,DPHITE,DPHIMP,SUM/SS,SUMC/SS 
FORMAT (//1X.52UH-)//, 

IX,'COMPARISON OF GAMMAS*//, 

IX,'GAMMA FROM KUTTA CONDITION: ',F12.8/ 

IX,'GAMMA FROM CONTOUR INTEGR (TRAIL EDGE): *,F12.8/ 
IX,'GAMMA FROM CONTOUR INTEGR (MIDPOINTS): ',F12.8/ 
IX,'GAMMA FROM BOX INTEGR (OFF THE CONTOUR):',F12.8/ 
IX,'GAMMA FROM PRECISE CONTOUR INTEG (6 PT):',F12.8// 
IX, 52(1H“)//) 


RETURN 

END 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
C THIS PROGRAM TAKES THE INPUT FILE (FILE CODE 14) AND CONVERTS THE 
C DATA TO A FREQUENCY, AMPLITUDE, AND PHASE SHIFT. 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE PHAZ(npts,ntcycle,w,itrans,alpl) 
parameter (nwmx“200, npmx”201) 

DIMENSION PHASE(3), AMP(3),CKT(400), 

> FN (nwmx), R'nwmx), DAT (nwmx), FNT (3,nwmx) 

LOGICAL flag 

REAL LI,L2,L3,L4,M1,M2,M3,M4 

common /phase t(nwmx),alpha(nwmx),cl(nwmx),cd(nwmx), 

> cm(nwmx),hy(nwmx) 

print*, ' ' 

print*, ' ' 

print*, ' PHASE SHIFT ANALYSIS ' 

PI = ACOS(-1.0) 
do i-1,3 
amp(I)=0.0 
end do 

DO 200, J - 1,2 
DO I * 1,NPTS 

IF (J .It. 1.5) THEN 
DAT (I) - CL (I) 

ELSE IF(J .gt.1.5) THEN 
DAT(I) - CM(I) 

END IF 
END DO 
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1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 
14 90 


C READ POSITION DATA 

IFUtrans .EQ. 1) THEN 
DO I-l.NPTS 

alpha(I) - HY(I) 

END DO 

zero - .00001 
ELSE 

zero » .01 
END IF 

CALL AMPLITUDE(DAT,AMP,NPTS, J) 
c..DETERMINE PHASE SHIFT 
PHI - 0. 

ERR - 10000. 

CN - -2.0 
itter - 500 
iCOUNT - 0 
phi - cn*pi/180.0 
nts - npts - 3*ntcycle/4 

nte « npts - ntcycle/4 

C..BEGIN ITTERATION TO CONVERGENCE 
30 iCOUNT - iCOUNT + 1 
SUM - 0 

DO I ■ nts, nte 

FN(I) - -AMP(J)*cos(W*T(I) + PHI ) 

R (I) - ABS(FNU) - DAT (I) ) 

SUM - SUM + R(I) 

END DO 

c print*, 'icount, phi, on err :',icount,phi*180./pi,cn,err 

IF(sum .gt. err) THEN 
CN - -0.5*CN 
end if 

PHI =* PHI + CN*PI/180.0 
ERR = SUM 

IF( abs(cn) .gt. 0.001 .and. icount .It. itter ) GO TO 30 
PHASE (J) - PHI*180.0/PI 

c do i ■ 4,npts 

c FNT(J,I) - AMP(J)*SIN(W*T(I) + PHASE(J)*pi/180.0) 

c end do 

200 CONTINUE 

open (unit-15,file-'phase.d',form-’formatted 1 ) 
write(15, 1 (4fl2.5) ’) 

c > ( t(i),alpha(i), fnt(1,i),fnt(2,i), I-l,npts) 

> ( t (i),alpha (i), cl (i) ,cm(i), I«l,npts) 
close(15) 

print*, 1 1 

print*, 'AMPLITUDE; clamp, cmamp ;',amp(1),amp(2) 
print*, 'PHASE; clp, cmp :', 

> phase(1)+180, phase(2) 
c DETERMINE THE PROPULSIVE EFFICIENCY 

PHASE(1) - PHASE(l)+pi/lBO.O 
PHASE(2) - PHASE(2)*pi/180.0 
CDTOT - 0 
k « 0 

DO I -npts-ntcycle, npts 
CDTOT - CDTOT + CD(I) - CD(1) 
k - k+1 
END DO 

DBAR - CDTOT/K 
DBAR - DBAR 

PRINT*,'AVERAGE DRAG, TOTAL DRAG : DBAR,CDTOT 

IFUtrans .EQ. 1) THEN 

WBAR - -.5*w*SIN(PHASE(1))*AMP(1) 

ETA - 2*DBAR/WBAR 
ELSE 

WBAR - .5*w*SIN(PHASE(2))*AMP(2) 

ETAS - DBAR/WBAR 
END IF 

PRINT*,'ETAS, WBAR ; ',ETAS,WBAR 

C DETERMINE AERODYNAMIC FORCES 
PHASE (1) - PHASE (1) + PI 
AMP (1) - AMP(l) / 2.0 
IF(itrans .EQ. 1) THEN 

Ll-AMP(1)*cos(PHASE(1))/(pi*(w/2.0)**2*alpl) 

L2-AMP(l)*sin(PHASE(1))/(pi* (w/2.0)**2*alpl) 

Ml- .5 
M2- 0 

c print*,'Ll,L2 - ',LI,L2,amp(1) 
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1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 


c print*,'Ml,M2 - ', Ml,M2,arop(2) 

ELSE 

c print*,'INPUT LI, L2 «• 

c read(*,*) L1.L2 

c L3-2*AMP(1)*cos(PHASE(1)!/(pi* (w/2.0)**2*alpl) + .5*L1 

c L4“2*AMP(1)*sin(PHASE(1))/(pi*(w/2.0)**2*alpl) + .5*L2 

Ml m . 5 
M2 - 0 
M3 - .375 
M4 - -(2/W) 

END IF 
return 
end 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE AMPLITUDE(DAT,AMP,NPTS,J) 

DIMENSION DAT(200),AMP(3),AMP1(10),AMP2(10) 
n2 - 0 
m2 - 0 
do i- 1,10 

ampl(i) - 0 
amp2(i) - 0 
end do 

DO I - 2,NPTS-1 

IF(DAT(I+1) .LT. 0 .AND. DAT(I) .LT. 0 ) THEN 
IF(ABS(DAT(I +1)) .GT.ABS(DAT(I))) then 
if((n2+l)/2.0 .EQ. int((n2+l)/2.0)) n2 - n2+l 
TMP - ABS (DAT (1 + 1) ) 
else 
goto 10 
end if 

if(tmp .gt. ampl(n2)) then 
ampl(n2) - tmp 
tmp «0 
end if 

ELSE 

if((n2+l)/2.0 .ne. int (<n2+l)/2.0)) n2 - n2+l 
IF(ABS(DAT(I+1)) .GT.ABS(DAT(I))) THEN 
TMP « ABS(DAT(1+1)) 
else 
goto 10 
end if 

if(tmp .gt. amp2(n2)) then 
amp2(n2) - tmp 
tmp =>0 
end if 
end if 
10 END DO 

if (ampl(2) .gt. amp2(2)) then 
if(ampl(2) .It. amp2(3)) then 
comp - ampl(2) 
else 

comp * amp2 1 3) 
end if 
Else 

if(amp2(2) .It. ampl(3)) then 
comp « amp2(2) 

else 

coir.p = ampl (3) 
end if 
end if 
do i - 2,n2 

if tabs(ampl(I)-Comp) .GT. .l*comP) go to 20 
m2 - m2 + 1 

amp(j) = amp(j) +ampl(i) 
go to 30 

20 if(abs(amp2(I)-comP) .GT. .l*comP) go to 30 

m2 = m2 +1 

amp(j) - amp(j) + amp2(i) 

30 continue 
end do 

if (j .It. 3) then 

AMP (J) - AMP (J)/(M2) 

else 

amp(j) « amp(j) / (2*m2) 

end if 
return 
END 
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APPENDIX C 


NS.IN NAME LIST 


******************************************************** 
No dphi/dt, circulation is applied 

213x61 new expanding smooth grid....ITEU=183...ITEL*31 


C.. IREAD, 

ITER 

NPRINT 

, NLOAD 

ODALFA 

0 

2000 

100 

500 

1.0 

C.. POTEN, 

NTPOT, MPOT, MDF KSISO 

, SO DIST - (Line : 

false 

1 

1 

1 4 

tf.15 

C.. ALPHA 

OSCIL 

RAMP 

REDFRE ALFAMND ALFAMXD 

2.00 

false 

false 

0.01 

0.001 20.0 

C.. MACH 

REYNOLD 

vise 

TURBL 


0.200 

2000000. 

true 

true 


C.. TIMEACC COUR 

NEWTIT 


false 

100 


2 


..comments 






IREAD: 0: no initial solution 

1: initial solution binary ** (cp ends.d strs.d) 
2: initial solution formatted (plot3d form) 

ITER: # of iterations.. 

Ramp: ((«„*- «•*»)/(2 A M dtau) ) 

Sinusoid: (fl /(k M dtau)) 

NPRINT: prints residuals at every nprint timesteps 

NLOAD: prints loads at every nload timesteps 

OALFA: prints out q file at every oalpha degree 


poten: 


ntpot: 
mpot: 

mdf: 
ksiso: 

so dist: 


false: no interactive solution 
true: potential flow ns interavtive solution 

(Inner and Outer Grid) 
timestep where interavtive solution starts 
interactive boundary conditons are updated at 
every mpot timestep 

dphi/dt is computed at every mdf timestep 
inner boundary is located ksiso grid points 
inside the outer boundary 

where the outer boundary is located (in terms of 
chord lengths 


ALPHA: 

steady state aoa 

OSCIL: 

false: 

true: 

no sinuzaidal oscillations 
sinuzaidal oscillations 

RAMP: 

false: 

true: 

no straight ramp motion 
straight ramp motion 

REDFRE: 

Reduced frequency based on HALF CHORD, chord length is 
assumed to be 1. 
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ALFAMND 


starting or min aoa 


ALFAMXD: 

max aoa 




VISC: 

false: 

euler solution 





true: 

ns solution 




TURBL: 

false: 

laminar flow 





true: 

b-1 turbulence 

model 



TIMEACC: 

false: 

variable time 

stepping 

+ + 

steady state. 






Attached flow 


true: 

constant time 

stepping 

+ + 

Ramp or Sinusoids 

COUR: 

courant number of the 

timestepping 

50-200-1000 

NEWTIT: 

Number 

of newton subiterations 

in ' 

each timestep. 


applied in unsteady flows. (2-3) 


B. BATCH & GRAPHICS INTERFACE CODE8 


***************************************** 

RUN 

1 # Indigo batch for executables 

2 #! /bin/csh -f 

3 #Runs ns.f versions and postprocesses for INDIGO machines 

4 nohup 

5 * 

6 set SRO-/ns/src 

7 set NS-ns 

8 set NO-no 

9 « 

10 if (S#argv «» 0) then 

11 echo " 

12 echo "• MISSING argument : s, wp or 

13 else if (SI — "s") then 

14 echo " 

15 echo " RUNNING -ns- background..." 

16 echo " 

17 echo " " > $NO ; date » SNO ; echo " " » $NO ; \ 

18 cat ns.in » SNO ; \ 

19 (timex nice -3 SSRC/SNS < ns.in >>& SNO) » SNO.t ;echo " " » SNO 

20 cat SNO.t » SNO ; date » SNO ; \ 

21 echo "• ns in Scwd has RUN.." ; rm SNO.t & 

22 else if ($1 »*= "wp") then 

23 if (Slargv !« 2) then 

24 echo " " 

25 echo " Missing the INPUT file argument.. " 

26 else 

27 echo " " 

28 echo " Writing PLOT3D files.." 

29 mv $2 inf; $SRC/wp3d ; mv inf S2 ;echo "• Written.." i 

30 endif 

31 else if ($1 “ "cl") then 

32 SSRC/wrcl 

33 else 

34 echo " 

35 echo "~G WRONG argument, try s, wp or cl...." 

36 endif 

*+++***++*•*+*****+***+*+*++***+•+************■++***+**+++■*****+++++**+++++ 


RUNS 

1 C... Cray batch executable 

2 c Submits a batch request to cray unicos network queing system 

3 #QSUB -q prem -IT 99:59:59 -1M 64Mw 

4 set SRC-ns/src 

5 set NS=ns 

6 set NO-ns/no 
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7 echo " " > $N0 ; date » SNO ; echo * * » SNO » \ 

8 cat ns/ns.in » SNO ; \ 

9 t SSRC/SNS < ns/ns.in » SNO ) » SNO.t » echo " " » SNO » \ 

10 cat SNO.t » SNO t date » SNO > \ 

11 exit 0 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 


W93D.F 

PROGRAM WP3D 

C..Reads binary last iteration file and writes it in plot3d format with Rotated 
C... Grid 

parameter (imax-250,kmax-100) 

dimension q(4,imax,kmax),x(imax,kmax),z(imax,kmax) 

> ,xr(imax,kmax),zr(imax,kmax) 
character filnq*15,alpn*10,filngr*15 

alpn - '0123456789' 
pi - 3.14159 
c..read the grid 

open (7,file-'/d3/johnston/ns/grid.in’.status*'old', 

+ form-'formatted') 

read (7,*) imx, kmx, iws, iwe 

read (7,*) ((x(i,k), i » 1, imx), k - 1, kmx ), 

> ((z(i,k), i » 1, imx), k - 1, kmx ) 
close (7) 

open (8,file-'inf',status-'old',form-'unformatted') 

DO 100 II - 9,100,2 

read {8,end-101) imx, kmx 

read (8) amach,alfad,reynph,time,itn 

read (8) ((( q(l,i,k), i«l,imx), k-l,kmx), 1-1,4) 

C..extract character string for iteration counT 
i6 - itn/100000 + 1 
iS - (itn - (i6-1)*100000)/10000 + 1 
i4 - (itn - (i6—1)*100000 - (i5-l)*10000)/1000 + 1 
i3 - (itn - (i6—1)*100000 - (i5-l>*10000 

> - { i 4 — 1 )* 1000)/100 + 1 

i2 - (itn - (i6—1)*100000 - (15-1)*10000 - (I4-l)*1000 

> - ( i 3 — 1)*100 )/10 + 1 

il - (itn - (i6—1)*100000 - (i5-l)*10000 - (I4-l)*1000 

> - (i3-l)*100 - (i2-l)*10 ) + 1 

filnq - ’q'//alpn(i5:i5)//alpn(i4:i4)//alpn(i3:i3)// 

> alpn(i2:i2)//alpn(il:il)/ /'. fmt’ 
filngr - ’gr'//alpn(i5:i5)//alpn(i4:i4)//alpn(i3:i3)// 

> alpn(i2:i2)//alpn(i1:il)//'.fmt’ 
c..write the qfile 

open (ii,file-filnq,form-'formatted') 
writeiii,*) imx,kmx 

write(ii,'(5el5.7)') amach,alfad,reynph,time 
write(ii,'(5el5.7)') 

> ((( q (is, i, k), i-1, imx ),k-l,kmx ), is-1,4) 
close(ii) 

c..write the rotated grid 

dalfa - alfad * pi/180, 
ca - cos( dalfa ) 
sa —sin( dalfa ) 
do 10 i-1,imx 
do 10 k«l,kmx 

xr(i,k) - x(i,k) * ca - z(i,k) * sa 
zr(i,k) - z(i,k) * ca + x(i,k) * sa 
10 continue 

ig - ii + 1 

open (ig,file-filnGR,form-'formatted') 
writetig,*) imx,kmx, iws, iwe 
write (ig,'(5el5.7)') 

> ((xr(i,k), i-1, imx), k - 1, kmx ), 

> ((zr (i, k), i-1, imx), k - 1, kmx ) 
close(ig) 

100 Continue 

101 close(8) 

STOP 

END 


WRCL.T 

PROGRAM wrcl 

*** auto-writes all files given dtau and niter 
*** includes Cf data 


213 


Appendix C 





1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
n 
18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 


*** Corrects NS.F grid/load error 
C..write alpha and cl from loads.d file 
parameter (idim-215 ) 

dimension cptidim,idim), cl(idim) f cd(idim),cmtidim),time(idim), 

> alpha (idim), civ (idim) ,cdv(idim), cmv (idim) , clw (idim) ,cdw (idim), 

> cmw(idim), x(idim, idim) ,z (idim, idim) ,cf (idim, idim) 
character fname*80 

* Print*,'input niter - ' 

* read*,niter 

* print*,'input dtau - ' 

* read*,dtau 
print*,' ' 

print*,' Enter LOAD file name :>' 
read(*,'(a80)') fname 

open(2,file-fname,form-'formatted',status-'old') 
do it - 1, 1000 

read(2,*,end-21)iter,alpha(it),time(it),fsmach,re, itel, iteu, 

> cl (it) ,cd (it), cm(it), clv(it) ,cdv(it) ,cmv(it), 

> (cp(i), i-1,iteu-itel+1), 

> (cf(i), i-l,iteu-itel+l) 
enddo 

21 close (2) 

open(11,file-'/d3/johnston/ns/grid.in',form-'formatted', 

+ status-'old') 

read (11,*) imx, kmx, iwks, iwke 

read (11,*) ((x(i,k), i-1, imx), k - 1, kmx ), 

> ((z(i,k), i-1, imx), k - 1, kmx ) 
close(11) 


do 30 itt - l,it-l 

cn-0. 

ch-0. 

cmp-0. 

ralfa - alpha(itt)*pi/180. 

do 25 i-itel+l,iteu 

dx - x(i+l) - x(i-l,l) 

dz - z(i, 1) - z(i-1,1) 

avcp - .5*( cp(i,itt) + cp(i-l,itt) ) 

cn - cn - avcp*dx 

ch - ch + avcp*dz 

zave « .5* (z(i, 1) + z(i-l,l) ) 

xave - .5* (x(i, 1) + x(i-l,l) ) 

C.. Cm about .25 x/c 

cmp - cmp + avcp* i dz*zave ♦ dx*(xave-.25) ) 
25 continue 

clw(itt) - cn*cos(ralfa) - ch*sin(ralfa) 
cdw(itt) - cn*sin(ralfa) + ch*cos(ralfa) 
cmw(itt) - cmp 
30 continue 


open(3,file-'cla.d',form-'formatted') 

write(3,' (2fl0.5)') ( alpha(i), -clw(i), i - l,it-l) 

open(4,file-'clt.d',form-'formatted') 

write(4,' (2 f 10.5) ') (time (i)/niter/dtau, -clv(i), i - 1, it—1) 

open(5,file-'cda.d’,form-'formatted') 

write(5,' (2f10.5)') ( alpha(i), -cdw(i), i - l,ic-l) 

open(6,file-'cdt.d',form-'formatted’) 

write(6,' (2fl0.5)') (time (i)/niter/dtau, -cdw(i), i - l,it-l) 

open (7, : T i 1 e-' cma. d', form-' formatted’) 

write(7,' (2fl0.5)') ( alpha(i), -cmw(i), i - l,it-l) 

open(8,file-'cmt.d',form-'formatted') 

write(8,' (2fl0.5)') (time(i)/niter/dtau, -cmw(i), i » l.it-1) 
open(9,file»'cp.d',form-'formatted') 

write (9,' (2f 10.5)') ( x(i,l), -cp(i,it-l), i - itel,iteu) 
open(10,file»'cf.d',form-’formatted') 

write(10,'(2f10.5)') ( x(i,l), cf!i,it-l), i - itel,iteu) 

STOP 

END 
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HOUHO 'JO\y*UWPO\C03 «J(J\0’*‘WWHO^flO-JO»U'iUU)MHOVoa)'JO»(^*>UJfOHO»0® •J0>UIAU»N)MO«a>-J<»UilkWrs)HO«>O-d»U'* ww»- 


VLCOK.V 


PROGRAM PLCON 

C..reads gr.. and q .. solution files and plots contours 
C..MUST COMPILE AND LINK THIS PROGRAM 
** 177 -c plcon.f 

** f77 plcon.o /usr/local/bin/nasadig.a -o plcon 

parameter (idim-213 ,kdim-61 ) 

dimension q(idim, kdim,4), xy (idim, kdim,2), ax(idim) ,ay(idim) 

> , ybl(kdim), vbl(kdim), func(idim,kdim) 
character yn*l,title*80,fname*80, text*80 
integer*! ititle(20) 
equivalence (title, ititle(l) ) 
data xumin,xumax,yumin /-0.75, 1.50, -0.75 / 

c data xumin.xumax.yumin /-0.1, 1.25, -0.35 / 

> ,xlen,ylen/3.25, 2.5 / 

> ,gam /l. 4/ 

C..nasadig calls 

print*,’ Enter Out.PS file name s>’ 
read(*,102) FNAME 

opcndO, file - fname,form-’formatted’,status-*unknown*) 

CALL postsc(lO) 

c call device(ktype,xpage,ypage) 

CALL PAGE(11., 8.5) 
c CALL HRDrot(’COMIC’) 

c CALL HRDrotl’MOVIE’) 

CALL HRDSCL(’NONE *) 

CALL NOBord 
CALL NOCHEK 
CALL DUPLex 
CALL HEIGHT(0.08) 

CALL frmwid(0.012) 

CALL crvwid(0.001) 

CALL MARGIN(0.) 

print*, ’ Input Ramp-1 or Sinusoid-2 or SS-9’ 
read*,jj 

CC View area of interest definition 
WRITE(*,105) XUMIN,XUMAX,yumin 
105 FORMAT(/’ xumin, xumax, yumin : ’, 

> •(’, 3F7.2,’ )’,’ Redefine ? (n>:>’ ) 

READ(*,101) YN 

IF (YN.EQ.’Y’ .OR. YN.EQ.’yd then 
print*,’Input xumin, xumax, yumin ’ 

READ(*,*) XUMIN,XUMAX,yumin 
endif 

C..read caption (Placed at bottom of page in Landscape mode) 
c print*,’ Any caption for the plots ?. (caption) :>’ 

c read(*,102,END-10) TITLE 

102 format(A80) 
c TITLE- ’ • 

C..read grid 

alphao - 0. 

alphao - 0. 

c FNAME - ’grid.in* 

print*,* • 

c print*,’ Default grid file is grid.in Is this o.k.? (y or n) ’ 

c read(*,101) yn 

101 format(al) 

c if( yn .eq. ’n’ .or. yn .eq. ’N’) then 

13 print*,’ Enter GRID file name j>’ 
read(*,102) FNAME 
c endif 

OPEN(1,FILE-FNAME,FORM-’FORMATTED’,STATUS-’OLD’) 
read(l,*) imx,kmx,iws,iwe 
readd,*) ((xy (i, k, 1), i-1, imx ),k-l,kmx ), 

> ((xy (i, k,2),i«l,imx ),k-l,kmx ) 
closed) 
ile - imx/2 + 1 

c fix the leading edge and trainling edge points, 
c ile - 31 

ite » 183 
C..read "q" file 

PRINT*,’ Enter Q file name :>’ 

72 READ(*,102) FNAME 

7 3 OPEN(2,FILE-FNAME,FORM-’FORMATTED’, STATUS-’OLD’) 

74 10 read(2,*,end-1000) imx,kmx 
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75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 
66 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

2.16 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 


read{2,*) famach,alpha,re, time 
read(2,*) 

> ((( q(i,k,is),i-l,imx ),k-l,kmx ), is-1,4) 

C..ROTATE GRID WRY ALPHA (NOT required for ns.f) 
c CALL ROTXY(ALPHA-alphao, IMX, kMX,XY) 

alphao - alpha 

c..extract airfoil coordinates 
ii - 0 

do i - 1, imx 
ii - ii+1 

ax(ii) - xy(l,l,l) 
ay (ii) - xy(I,l,2) 
enddo 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PRINT*, • * 

PRINT*, * Angle of ATTACK - *, ALPHA 


30 PRINT*, • • 

PRINT*, * Choose the 
PRINT*, ' * 

PRINT*, * 

PRINT*, • 

PRINT*, * 

PRINT*, • 

PRINT*, ’ 

PRINT*, • 

PRINT*, * 

PRINT*, • 

PRINT*, * 1 
READ(*,*) IFUN 
do 999 ifun » 1,4 
fmax « -10000. 
fmin - 10000. 

NCON • 25 

IF (IFUN .EQ. 8) THEN 
goto 13 
endif 


contour function :>' 

1 : Density 1 

2 : Pressure 1 

3 : Mach Number* 

4 : Vorticity* 

5 : Mass-flux* 

6 : NEXT Time step 

7 s EXIT* 

8 : Next q-file* 


IF (IFUN .EQ. 1) THEN 
C..ASSIGN DENSITY 

print*,'Density' 

DO 91 k - 1, KMX 
DO 91 I - 1,IMX 
FUNC (I, It) - Q(I, k, 1) 
fmin - min(func(i,k), fmin) 
fmax - max(func(i,k), fmax) 

91 continue 

coninc - (fmax-fmin)/neon 
ELSEIF(IFUN .EQ. 2) THEN 
C..EVALUATE Pressure 

print*,'Pressure* 

DO 92 k « l.kMX 
DO 92 I - 1,IMX 

VEL2 - ( q(i, k,2) **2 + q(i,k,3)**2 )/Q(I,k,l) 

FUNC (I, k) - gam* (gam-1.)* ( Q(I,k,4)-.5*VEL2 ) 
fmin - min(func(i,k), fmin) 
fmax « max(func(i,k), fmax) 

92 continue 

coninc « (fmax-fmin)/neon 
ELSEIF (IFUN .EQ. 3) THEN 
C..EVALUATE MAch NUMBER 
print*,'Mach' 

DO 93 k - 1, kMX 
DO 93 I - 1,IMX 

VEL2 - ( q(i,k,2)**2 + q(i,k,3)**2 )/Q(I, k, 1) **2 

PP - (GAM-1.)*( Q(I, k, 4) - . 5*VEL2*Q(I, k, 1) ) 

AL2 - GAM*PP/Q(I, k, 1) 

Func(i,k) - SQRT(VEL2/AL2) 
fmin « min(func(i,k), fmin) 
fmax • max(func(i,k), fmax) 

93 continue 


coninc « (fmax-fmin)/neon 
ELSEIF(IFUN .EQ. 4) THEN 
C..EVALUATE VORTICITY FIELD 
print*,'Vorticity' 
do 41 k«2,kmx-1 
km-k-1 


kp-k+1 

do 41 i«2,imx-l 
ip-i+1 
im»i-l 
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xxi - 0.5 * t xy(ip, k, 1) - xy(im,k,l> ) 

zxi - 0.5 * ( xy(ip,k,2) - xy(im,k,2) ) 

xz« - 0.5 * ( xy(i, kp, 1) - xy(i,km,l) ) 

zze - 0.5 * ( xy(i,kp,2) - xy(i,km,2> ) 

rjacob - 1./( xxi*zze - xze*zxi ) 
xix - rjacob * zze 
xiz —rjacob * xze 
zex --rjacob * zxi 
zez - rjacob * xxi 

u ze - 0.5* ( q(i, kp, 2) /q(i, kp, 1) -q(i, km, 2) /q(i, km, 1)) 
w~ze - 0.5* ( q(i,kp,3)/q(i,kp,l)-q(i,km,3)/q(i, km, 1)) 
u“xi - 0.5* ( q(ip,k, 2 )/q(ip,k,l)-q(im,k, 2 )/q(im,k,l) ) 
%Txi - 0.5* ( q(ip,k,3)/q(ip,k,l)-q(im,k,3)/q(im,k,l) ) 
dudz - u_xi*xiz ♦ u ze*zez 
dwdx - w xi*xix ♦ w”ze*zex 
func(i,kT - dudz-dw3x 
fmin - minlfunc (i, k), fmin) 

{max - max(func(i,k), fmax! 

41 continue 

do 42 i - l.imx 

42 funcli,1) - fundi,2) 
fmax - fmax/100. 
fmin - fmin/100. 

coninc - (fmax-fmin)/neon 
ELSEIFUFUN .EQ. 5) THEN 
C..EVALUATE MASS-FLUX FUNCTION 
Cl - 0.5 
k - 1 

fundi,k) - 0. 

DO I - 1,imx 

FUNC(I,k) - FUNC(I-1,k) ♦ 

> Cl* ( (Q(I,k,2) + Q{I-l,k,2))* (XY (I, k, 2) -XY (1-1, k, 2)) - 

> (Q(I, k, 3) ♦ Q(I-l,k,3))* (XY (I, k, 1) -XY (1-1, k, 1)) ) 
enddo 

c do i - iteu, imx 

c func (i, k) - func(imx-i+l,k) 


enddo 

DO 1-1, IMX 
DO k-2, kMX 
FUNC(I.k) - 


FUNC(I,k-l) + 


> Cl*( (Q(I, k, 2) + Q(I,k-l,2))»(XY(I,k,2) - XY(I,k-l,2)) - 

> (Q(I, k, 3) + Q (I, k-1,3)) * (XY (I, k, 1) - XY(I,k-l,l)) ) 
fmin - min(func(i,k), fmin) 

fmax - max (func (i, k), fmax) 

enddo 

enddo 

do k-1,kmx 

func(imx,k)- func(l,k) 
end do 

coninc - fsmach/50. 
neon - (fmax-fmin)/coninc 
ELSEIF(IFUN .EQ. 6) THEN 
goto 10 

ELSEIFUFUN .EQ. 7) THEN 


goto 1000 
ELSE 

PRINT*, ' WRONG Selection.* 

goto 30 
ENDIF 

31 PRINT*, ' ' 

PRINT*, ' Function Min a 

PRINT*, * ' 

PRINT*, ' Enter NCON :>' 

READ(*,*) NCON 
conmin - fmin 
conmax - fmax 
fmax - -10000. 
fmin - 10000. 

NP - NP+1 
MNP - MOD(NP, 4) 

IF(MNP.EQ.l) THEN 
X0 - 2.37 
Y0 - 4.31 
CALL frmwid(0.012) 

CALL crvwid(O.OOl) 

ELSEIF(MNP.EQ.2) THEN 
X0 - 6.12 
Y0 - 4.31 


Function Min and Max :> ',fmin,fmax 
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231 

232 

233 

234 

235 

236 
231 
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240 
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242 
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24 6 
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24 9 
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253 
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255 

256 
251 
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259 

260 
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262 
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264 

265 

266 
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268 
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211 
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213 

214 

215 

216 
211 
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219 
280 
281 
282 

283 

284 

285 

286 
281 
288 

289 

290 

291 

292 

293 

294 

295 

296 
291 

298 

299 

300 

301 

302 

303 
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305 

306 
301 
308 


ELSEIF(MNP.EQ. 3) THEN 
X0 - 2.31 
YO • 1.31 

ELSEIF(MNP.EQ.O) THEN 
XO - 6.12 
YO - 1.31 
ENDIF 

DUY - YLEN*(XUMAX-XUMIN)/XLEN 
YUMAX - YUMIN + DUY 
YS - YLEN/ (YUKAX-YUMIN) 

XS - XLEN/(XUMAX-XUMIN) 

CALL ORIGIN(X0,Y0) 

CALL SETSUB(XLEN,YLEN) 

C CALL XLABELC *,1) 

CALL AXES2D(XUMIN,XUMAX-XUMIN,XUMAX, YUMIN,YUMAX-YUMIN,YUMAX) 
CALL FRAME 
CALL MARGIN(0.) 

DO 50 N - l.NCON+l 

CONV - COhMIN ♦ coninc* (N-l) 

if( ifun .eq. 4 .and. abs(conv) .It. .50) goto 50 
CALL CONTOUR(FUNC,XY,IMX,kMX,CONV, 

> XUMIN - ABS(XUMIN)*0.5 ,XUKAX*1.5, 

> YUMIN - ABS (YUMIN) *0.5 ,YUMAX*1.5, NCELL) 
iftncell .na. 0) than 

fmin - min(fmin,conv) 
fmax - max(fmax,conv) 

c print*, 'n, conv, ncall s', n,conv,ncall 

andif 

50 CONTINUE 
c..nomanclaatura 

CALL HEIGHT(0.08) 

if( ifun .eq. 1) CALL TXTMSG(’DENSITYS’,100,0.2, YLEN+0.1) 
if( ifun .aq. 2) CALL TXTMSGCPRESSURES',100,0.2, YLEN+0.1) 
if( ifun .aq. 3) CALL TXTMSG('MACH NUMBERS',100,0.2, YLEN+0.1) 
if( ifun .aq. 4) CALL TXTMSG('VORTICITYS',100,0.2, YLEN+0.1) 
if( ifun .aq. 5) CALL TXTMSGCMASS-FLUXS',100,0.2, YLEN+0.1) 
call defalf('L/CGREEK') 

call txtmsgf'a -S',100, xlan-0.15, ylan-0.2) 
call reset('DEFALF') 
call raalno (alpha,1, 'ABUT*,'ABUT') 
call height(0.05) 
if ( ifun .ne. 5 ) then 
c was 0.24 

call txtmsg CHIN - $*,100, 0.05,0.16) 
call raalno (fmin, 2, 'ABUT’,'ABUT 1 ) 
call txtmsg ('MAX - S',100, 0.05,0.05) 
call raalno (fmax, 2, 'ABUT','ABUT') 

CALL HEIGHT(0.08) 

call txtmsgCM -S',100,xlen-3.1,ylen-.2 ) 
call raalno (fsmach.2, 'ABUT','ABUT') 
if (jj .aq. 1) then 
CALL HEIGHT(0.08) 

call txtmsg ('RanpS',100,xlen-2.95,ylen-.35) 

CALL HEIGHT(0.05) 

call txtmsg ('(A-0.005)S',100,xlen-2.97,ylen-.46) 
alseif (jj .aq. 2) then 
CALL HEIGHT(0.08) 

call txtmsg CSinusoidS',100,xlen-3.05,ylen-.35) 

CALL HEIGHT(0.05) 

call txtmsg (' (k-0.05)S',100,xlen-3.05,ylen-.46) 

andif 

c call txtmsg {'TIME • S',100, 0.6,0.15) 

c call realno (TIME, 2, 'ABUT','ABUT') 

and if 

C..draw airfoil.. 

call curve (ax,ay, ii, 0) 

IF(MNP .EQ. 1) then 
call height(0.08) 

c call txtmsgCMach -S',100, 0., -4.1 ) 

c call realno (fsmach,2, 'ABUT','ABUT') 

c call txtmsg(', Re -S',100, 'ABUT', 'ABUT' ) 

c call realno (re,l, 'ABUT','ABUT') 

c call txtmsg(ititle,100, 0., -4.4 ) 

call andsub{0) 
alseif( mnp .aq. 0) then 
call stoplt(0) 
else 

call andsub(0) 


218 


Appendix C 






309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 
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359 

360 

361 

362 

363 

364 

365 

366 

367 
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369 
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«ndif 

c PRINT*,' Do you want to change the increament.? (n) :>' 
c READ!*,'(al)') YN 

c IF(YN.EQ.'Y' .OR. YN.EQ.'y') GOTO 31 

c GOTO 30 

999 continue 

1000 IF(MNP .ne. 0) call stoplt(O) 

CALL FINPLT 
CLOSE(2) 

CLOSE(10} 

STOP 

END 


SUBROUTINE CONTOUR (F,XY,IMX, JMX,CONV, 

> XMIN,XMAX,YMIN,YMAX,NCELL) 

C..FINDS CONTOUR LINES AND PLOTS 

parameter (idim-213 , jdim»61 ) 

DIMENSION F(IDIM, JDIM) ,XY (IDIM, JDIM, 2), X(2),Y(2) 

NCELL - 0 

DO 50 I - 1. IMX-1 

IP - 1+1 

DO 50 J - 1, JMX-1 

JP - J+l 

XI - XY(I,J,1) 

Y1 - XY(I,J,2) 

IF(XI.GT.XMAX.OR.X1.LT.XMIN.OR.Y1.GT. YMAX.OR.Y1..1.YMIN) 

> GOTO 50 

X2 - XY (I, JP, 1) 

Y2 - XY (I, JP,2) 

X3 - XY (IP, JP, 1) 

Y3 - XY (IP, JP, 2) 

X4 - XY(IP, J, 1) 

Y4 - XY (IP, J, 2) 

FI - F(I,J) 

F2 - F(I, JP) 

F3 - F(IP, JP) 

F4 - F(IP,J) 

NP - 0 

IF( (CONV.GT.FI.AND.CONV.LT.F2) .OR. 

> (CONV.LT.FI.AND.CONV.GT.F2) ) THEN 
NP - NP+1 

X(NP) - X2 - (F2-CONV)*(X2-X1)/(F2-F1) 

Y(NP) - Y2 - (F2-CONV)*(Y2-Y1)/(F2-F1) 

ENDIF 

IF( (CONV.GT.F4.AND.CCMJV.LT.F3) .OR. 

> (CONV.LT.F4.AND.CONV.GT.F3) ) THEN 
NP - NP+1 

X(NP) - X3 - (F3-CONV)*(X3-X4)/(F3-F4) 

Y(NP) - Y3 - (F3-CONV)+(Y3-Y4)/(F3-F4) 

ENDIF 

IF(NP.E0.2) THEN 

CALL RELVEC( X(1),Y(1),X(2),Y(2),0) 

NCELL - NCELL+1 
ELSE 

IF((CONV.GT.F2.AND.CCMJV.LT. F3) .OR. 

> (CONV.LT.F2.AND.CONV.GT.F3) ) THEN 
NP - NP+1 

X(NP) - X3 - (F3-CONV)+(X3-X2)/(F3-F2) 

Y(NP) - Y3 - (F3-CONV)+(Y3-Y2)/(F3-F2) 

IF(NP.EQ.2) THEN 

CALL RELVECI X(1),Y(1) ,X(2), Y(2), 0) 

NCELL - NCELL+1 
ENDIF 
ENDIF 

IF(NP.EQ.l) THEN 
NP - NP+1 

X(NP) - X4 - (F4-CONV)+(X4*X1)/(F4-F1) 

YtNP) - Y4 - (F4-CONV)+(Y4-Y1)/(F4-F1) 

CALL RELVECt X(1),Y(1) ,X(2), Y(2) ,0) 

NCELL - NCELL+1 
ENDIF 
ENDIF 

50 CONTINUE 
RETURN 
END 

C- 
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30? SUBROUTINE ROTXY ( ANGLE,IMX.JMX.XY ) 

388 parameter (idim-213 ,jdim-61 ) 

389 DIMENSION XYIIDIM,JDIM,2> 

390 ROTANG > ANGLE*3.14159/180. 

391 CA - COS (ROTANG) 

392 SA - -SIN(ROTANG) 

393 DO 10 I - 1, IMX 

394 DO 10 J - l.JMX 

395 XC - XY(I,J,1) 

396 YC - XY (I, J,2) 

397 XY(I,J,1) - XC*CA - YC*SA 

398 10 XY(I,J,2) - YC*CA ♦ XC*SA 

399 RETURN 

400 END 


c. 


31 

32 

33 

34 

35 

36 

37 

38 


PROGRAM NS.r 80UCE CODE 
program as sot2d 

************ ******************1 


c **«.•••*•*•*• 
c by 

c John A. Ekaterinarls 

c nasa, ames research center 

c march, 1990 

c modified by 

c I.H. Tuncer 

c nps 

c apnl 1992 

c solution of the 2-D unsteady, thin-layer navier-stokes 
c equations in a time-accurate manner, 

c characteristics of the code: 

c 1) factored, iterative, implicit algorithm 

c 2) high-order accurate upwind difference scheme (third order) 
c 3) baldwin-lomax turbulence model 

c 4) patched and overlaid grids 

c 5) the code is almost completely vectorized for the cray-ymp 

c ******************************************************************i 


1 

c.."corns.f" 





2 

parameter (nia * 213, nka - 

61) 


3 

common /alpar 

/oscil, ramp , 

redfre, omega. 


4 

> 


alfa , alfad. 

alfamn, alfamx 


5 

logical 

oscil, ramp 



6 

common 

/gamvl 

/gamma. 

gmm, 

gmp. 

7 

> 


rgamma, 

rgmm, 

rgmp. 

8 

> 


gmbygp 



9 

common 

/iksri 

/imx(2), 

kmx(2), 


10 

> 


imxl (2), 

kmxl(2), 


11 

> 


imx2 (2), 

kmx2(2) 


12 

common 

/ikwk 

/iwks (2), 

iwke(2) 


13 

common 

/infvl 

/rinf, 

uinf, 

vinf, 

14 

> 


winf, 

pinf. 

einf, 

15 

> 


tinf, 

amach. 

pratio 

16 

common 

/load 

/cl, cd, cm, civ, edv, cmv 


17 

common 

/nparm 

/niter, 

newtit,loop. 

iter,itr. 

18 

> 


nprint,iread, 

nload. 

odalfa,oalfa 

19 

common 

/tmval 

/timeacc, time. 

dtau.dt(nia,nka) 

,cour 

20 

common 

/visci 

/vismu(nia,nka) 

, turmu(nia,nka) 


21 

common 

/viavl 

/reynnu,reynph. 

prkin. 

prtur 

22 

common 

/vispar/visc, turbl 



23 

common 

/poten / poten, ntpot. 

mpot, mdf, ksi, kso, 

ksiso, sodist 

24 

logical 

vise, turbl. 

poten, timeacc 


25 

common 

/grid 

/ x(nia,nka), z(nia,nka) 


26 

common 

/flow 

/ q(4,nia,nka) 



27 

common 

/dflow 

/ qd(4,nia,nka) 



28 

common 

/jacob / aja(nia,nka) 



29 

common 

/metres/ xix (nia,nka) , 

xiz(nia,nka), xit(nia,nka), 

30 

> 


zex(nia,nka), 

zez(nia,nka), zet(nia,nka) 


pi - 4.*atan(l.) 
call data 
do 10 itr - 1, niter 
iter - iter + 1 
time - time + dtau 
alfaold - alfa 
if( oscil ) then 

freq - 2.*redfre*uinf 
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39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 


alia - alfamn + 0.5*(alfamx-alfamn)*(l.- cos(freq'time)) 
onega - fraq * 0.5*(alfamx-alfamn)*sin(freq*time) 
call groove(alfa-alfaold) 

«lsalf( ramp ) than 
omega - 2.*redfre*uinf 
alfa - alfamn + omega*time 
1£( alfa .gt. alfamx) than 
alfa - alfamx 
omega - 0. 
andif 

call grmove(alfa-alfaold) 
andif 

alfad - alfa * (180./pi) 
c..update outer be 
c if (potan ) call nspot 

call step 

iff abs(alfad-oalfa) .gt. 0.999*odalfa ) then 
call qio(lO) 
oalfa - alfad 
andif 

if(modfiter,1000) .eq. 0 .or. itr .eq. niter) call qio(0) 

10 continue 

c if( .not. poten) then 

c open(unit-33,file-'pres.d',form-*formatted') 

c kso - 47 

c sso - 0. 

c do i « 2, imx(l) 

c ssoo - sso + sqrt( (x(i,kso)-x(i-1,kso))**2 + 

c > (z (i, kso)-z (i-1, kso)) **2 ) 

c pres - gmm* ( q(4,i,kso) 

c > - .5* (q(2,i, kso) **2 + q(3, i, kso)**2)/q(1,i,kso) ) 

c sso - ssoo 

c write(33,'(2el5.7)') sso, pres 

c enddo 

c endif 

close(8) 
close (9) 

STOP 

END 

c include 'nspot.f 

C--- 

subroutine data 
include 'corns.f' 
pi - 4.*atan(l.) 
read (5,*) 
read (5,*) 
read (5,*) 

c..read top comments 
read (5,*) 

read (5,*) iread, niter, nprint, nload, odalfa 
read (5,*) 

read (5,*) poten, ntpot, mpot, mdf, ksiso, sodist 
read (5,*) 

read (5,*) alfad, oscil, ramp, redfre, alfamnd, alfamxd 
read (5,*) 

read (5,*) amach, reynph, vise, turbl 
read (5,*) 

read (5,*) timeacc, cour, newtit 
c.. read in grid 

open(unit-11, file-'grid.in',form-'formatted',status-'old') 
nt - 1 
ng - 1 

read (11,*) imx(nt), kmx(nt), iwks(l), iwke(l) 

read (1),*) ((x(i,k), i - 1, imx(l)), k - 1, kmx(l) ), 

> ((z(i,k), i-1, imx(l)), k - 1, kmx(l) ) 

print *, 'Grid dimensions are :', imx(nt), kmx(nt) 
print *, 'TE is located at I -', iwks(l) 
kmx(2) - kmx(l) 

imxl(nt) - imx(nt) - 1 

imx2(nt) - imx(nt) - 2 

kmxl(nt) - kmx(nt) - 1 

kmx2(nt) - kmx(nt) - 2 

alfa - alfad*pi/180. 
alfamn - alfamnd*pi/180. 
alfamx - alfamxd*pi/180. 
omega - 0. 

c.. specify some parameters *** 
tinf - 530.0 
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m 

ne 

119 

120 

121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 
17° 
180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 


prkin - 0.72 

prtur - 0.90 

reynnu - reynph / amach 

gamma - 1.4 

gmm - gamma - 1.0 

gmp - gamma + 1.0 

rgamma - 1.0/gamma 

rgmm - 1.0/gmm 

rgmp - 1.0/gmp 

gmbygp - gmm/gmp 

rinf - 1.0 

uinf « amach 

winf - 0. 

pinf - 1.0/gamma 

ainf - 0.5*rinf*(uinf**2 + winf**2) + pinf*rgmm 
iter - 0 
time - 0. 

if (iread .ne. 0) then 
call qio(iread) 
kmxl(l) - kmx(l) - 1 
kmx2(l) - kmx(l) - 2 
alfa - alfad*pi/180. 
call grmove(alfa) 
iff (oscil .or. ramp) .and. 

> absfalfad - alfamnd) .It. l.e-05 ) then 

iter - 0 
time - 0. 
endif 

c elseiff poten ) then 

c. .initialize bl (k<kpots) and the potential flowfield.. 
c kpots - 25 

c do i - l,imx(l) 

c do k - 1, kmx (1) 

c q(l,i,k) - rinf 

c enddo 

c q(2,i,l) - 0. 

c if (i .It. iwks(l) .or. i .gt. iwke(l)) q(2,i,l) - uinf 
c q (3, i, 1) - 0. 

c q(4,i,l) - einf 

cenddo 

c call grmove(alfa) 

c call potsvd, kmx (1), kpots, iwks(l), uinf) 

c do k - 2, kpots-1 

c ratiok - float(k)/kpots 

c do 1 • 1,4 

c do i - l,imx(l) 

c if (i .ge. iwksfl) .and. i .le. iwkefl)) then 

c q(1,i,k) » q(1,i,1) ♦ ratiok*( qfl,i,kpots)-q(l,i,1) ) 

c else 

c q(l,i,k) - q(l,i,kpots) 

c endif 

c enddo 

c enddo 

c enddo 

else 

c.. initialize q to freestream values everywhere *** 
do 60 k ■ 1, kmx(l) 
fact - mind., float(k)/15) 
do 60 i * 1, imxfl) 

q(l,i,k) - rinf 

if (i .ge. iwksfl) .and. i .le. iwke(l)) then 
q(2,i,k) - fact * rinf*uinf 

else 

q(2,i,k) - rinf*uinf 
endif 

q(3,i,k) - 0. 
q(4,i,k) » einf 
60 continue 

call grmove(alfa) 
endif 

call eigen 

oalfa « float(int(alfad)) 

open(unit<*9, file-'loads.d', form-' formatted') 
open(unit-8,file-'qp.d',form-'unformatted') 
write(6,101) 

101 format(//' Iter Alpha Time Resid Density i k 

>’ Cm Cd Cl') 

return 
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195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 
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227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 


•nd 


.or. oscil .or. iter .gt. 50) then 


subroutine be 
include ■corns.f 
logical doit 

c if ( poten .or. ramp 

decay - 0. 

c else 

c decay - 1.0 - float(iter)/50. 

c endif 

ng «1 

c..for <k-l>, <i«itel,iteu> for airfoils *** 

11 - iwks(ng) 

12 - iwke(ng) 
kl - 1 

k2 - 2 
k3 “ 3 

do 100 i-il,i2 

rval2 - q(l,i/k2) 
pval2 “ gmm* (q(4, i, k2) - 

> 0.5* ( q(2,i,k2)**2 + q(3,i,k2)**2 ) / q(l,i,k2)) 
rvall • rval2 

pvall “ pval2 
xtau “ omega * z(i,kl) 
ztau —omega * x(i#kl) 
if( vise ) then 

c..enforce non-slip boundary condition on the surface *** 
ul - q(2,i,kl) 

u2 - q(3,i,kl) 

else 

c..enforce slip boundary condition on the surface *** 
decay - 1. 

u2 - q(2,i,k2)/q(l,i,k2) 
u3 - q(2,i,k3)/q(l,i,k3) 
v2 - q(3,i,k2)/q(l,i,k2) 
v3 - q(3,i,k3)/q(l,i,k3) 
ucon2 - xtau + xix(i,k2)*u2 + 
ucon3 » xtau + xix(i,k3)*u3 + 
vcon2 - ztau + zex(i,k2)*u2 + 
vcon3 » ztau + zex(i#k3)*u3 
uconl - 2.*ucon2 - ucon3 
vconl - 0. 

ul - < (uconl-xtau)*zezl i,kl) 

> *aja(i,kl) 

vl » (-(uconl-xtau)*zex(i,kl) 

♦ajaU.kl) 


xiz(i,k2)*v2 
xiz(i, k3)*v3 
zez(i,k2)*v2 
zez(i,k3)*v3 


xiz (i, kl) *ztau ) 
xix(i,kl)*ztau ) 


endif 
q(1, i,kl) 
q(2, i,kl) 
q(3, i, kl) 
q(4,i,kl) 


rvall 

(decay * ul 
(decay * vl 
rgmm*pvall 


+ xtau) * rvall 
+ ztau) * rvall 

+ 0.5*(q(2,i,kl)**2+q(3,i,kl)**2 ) 
/ rvall 


100 


continue 
doit - .false. 

if( .not. poten .and. doit ) then 
c..set free-stream conditions.. 

q( 1 ,if kl) - rinf 
q(2,i,kl) - rinf*uinf 
q(3f i, kl) - 0. 
q(4,i,kl) - einf 
elseift .not. poten ) then 

c.. enforce boundary conditions at the inlet boundary 


c 

c 

c 

c 

c 

c 

c 

c 


1) Dt(kmax) - pt(inlet) (total pressure condition) 

2) *u (kmax) - uinf (inlet angle - a degs) 

3) w(kmax) - winf (inlet angle - a degs) 

4) reiml(kmax) « reiml(inlet) 

(reimann variable reiml 

5) reim2(kmax) - reim2(kmax-1) 

(reimann variable reim2 


u + 2c/(gamma-1)) 
u - 2c/(gamma-1)) *** 


cinf - sqrt(gamma*pinf/rinf) 
sinf - pinf/rinf**gamma 
reiml - uinf + 2.0*cinf*rgmm 

ptinf - pinf*(1.0 + 0.5*gmm*amach**2)**(gamma*rgmm> 
kl - kmx(ng) 

k2 - kmxl(ng) 

do 200 i - 2, imxl(ng) 

pval2 - gmm*(q(4,i,k2) - 0.5*( q(2,i,k2)**2 + q(3,i,k2)**2 ) 
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273 

274 

275 

276 

277 

278 

279 

280 
281 
282 
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284 
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287 

288 

289 
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294 

295 
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297 
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300 

301 
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303 

304 
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306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 


> / q(l,i,k2) ) 

cval2 - sqrt(gamma*pval2/q(l,i, k2)) 
uval2 - q(2,i,k2)/q(l,i,k2) 
reim2 « uval2 - 2.0*cval2*rgmm 
uvall « 0.5*(reiml + reim2) 
wall * winf 

cvall - 0.25*gmm«(reiml - reim2) 
c amsq - (uvall**2 + wall**2)/cvall**2 

c pvall « ptinfMl.O + 0.5*gmm*amsq)**(-gamma*rgmm) 

c rvall - gamma*pvall/cvall**2 

svall - sinf 

rvall « (rgamma*cvall**2/svall)**rgmm 
pvall - rgamma*rvall*cvall**2 
q(l,i,kl) - rvall 
q(2,i,kl) - rvall*uvall 
q(3,i,kl) « rvall*wall 

q(4,i,kl) « pvall*rgmm + 0.5*rvall*(uvall**2 +wall**2) 

200 continue 
endif 

c..enforce boundary conditions at the exit boundary 
c l)p- pstat (static pressure condition) 

c 2) w(imax)» w(imax-l) 

c 2) reiml(imax) - reiml(imax-1) 

c (reimann variable reiml- u + 2c/(gamma-1)) 

c 4) s(imax) - s(imax-1) (entropy condition) *** 


ng - 1 

11 - imx(ng) 

12 - imxl(ng) 

do 300 k - 1, kmx(ng) 
rval2 - q(l,i2,k) 

pval2 - gmm*(q(4,i2,k) - 0.5*( q(2,i2,k)**2 + q(3,i2,k)**2 ) 
> / q(l,i2,k) ) 


cval2 » sqrt(gamma*pval2/q(l,i2,k)) 
uval2 - q(2, i2, k)/q (1, i2, k) 
wal2 - q(3,i2,k)/q(l,i2,k! 
reiml - uval2 + 2.0*rgmm*cval2 
sval2 - pval2/rval2**gamma 
svall - sval2 
pvall - pinf 

rvall - (pvall/svall)**rgamma 

cvall - sqrt(gamma*pvall/rvall) 

uvall » min( uinf, reiml - 2. 0*rgmm*cvall ) 

wall - wal2 


300 


q(l,il,k) 
q(2, il, k) 
q(3,il,k) 
q(4, il, k! 

continue 

11 - 1 

12 - 2 

do 350 k - 1, 
rval2 
pval2 


rvall - rval2 
uvall - uval2 
wall - wal2 
rvall 

rvall*uvall 

rvall*wall 

pvall*rgmm + 0.5*rvall*(uvall**2 + wall**2) 


kmx(ng) 
q(l,i2,k) 
gmm*(q(4,i2, k) 


0.5* ( q(2,i2,k)**2 + q(3,i2,k)’ 
/ q (1, i2, k)! 


‘2 ) 


cval2 - sqrt(gamma*pval2/q(1,i2,k)) 
uval2 - q(2,i2,k)/q(l,i2,k) 
wal2 - q(3,i2,k)/q(l,i2,k) 
reiml - uval2 + 2.0*rgmm*cval2 
sval2 - pval2/rval2**gamma 
svall - sva!2 
pvall - pinf 

rvall - (pvall/svall)**rgamma 
cvall « sqrt(gamma*pvall/rvall) 
uvall - reiml - 2.0*rgmm*cvall 
wall - wal2 
q(l,il,k) - rvall 
q(2,il,k) - rvall*uvall 
q(3,il,k) - rvall*wall 

q(4,il,k) - pvall*rgmm ♦ 0.5*rvall* (uvall**2 + wall**2) 
350 continue 

c..outgoing be along the C part of the grid., 
doit - .false, 
if ( doit) then 
kl - kmx (1) 
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362 
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369 
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371 

372 

373 
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376 
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378 
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380 

381 
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383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 
4 27 
428 


k2 - kmxl (1) 

do 360 i - 2, imxlU) 

vxs - (z(i,kl)-z(i-l,kl) )*q(2,i,kl) - 

> (x(i,kl)-x(i-l,kl))*q(3,i.kl) 
if( vxs .It. 0. ) then 

c print*, 'Outgoing be at i:', i, pvall 

c rval2 « q(l,i,k2) 

c pval2 - gmm* (q(4,i, k2) - 0.5*{ q(2,i,k2)**2 + q(3,i,k2)**2 ) 

c > / q(l,i,k2)) 

c cval2 « sqrt(gamma*pval2/rval2 

c uval2 « q(2,i,k2)/q(l,i,k2) 

c wval2 - q(3,i,k2)/q(l,i,k2) 

c reiml » uval2 + 2.0*rgmm*cval2 

c sval2 « pval2/rval2**gamma 

c svall • sval2 

c pvall * pint 

c if (poten) pvall - gmm*(q(4,i,kl) - 

c > 0.5* ( q(2,i,kl)**2 + q(3,i,kl)**2 ) / qtl,i,kl)) 

c rvall « (pvall/svall)**rgamma 

c cvall « sqrt(gamma*pvall/rvall) 

c uvall - reiml - 2.0*rgmm*cvall 

c wall « wal2 

c q(l,i,kl) - rvall 

c q(2,i,kl) - rvall*uvall 

c q(3,i,kl) - rvall*wall 

c q(4,i,kl) - pvall*rgmm + 0.5*rvall*<uvall**2 + wall**2) 

pvall • gmm* (q(4, i, kl) - 

> 0.5* ( q(2,i,kl)**2 + q(3,i,kl)**2 ) / q(l,i,kl)) 

c q(l,i,kl) - (4.*q(1,i, k2) - q(1,i, k2-l))/3. 

q(l,i,kl) - 2.*q(l,i, k2) - q(l,i,k2-l) 
q(2, i, kl) - 2.*q(2,i,k2) - q(2,i,k2-l) 
q(3, i, kl) - 2.*q(3, i, k2) - q<3,i,k2-l) 
q(4,i,kl) - pvall*rgmm + 

> 0.5* ( q(2, i, kl)**2 + q{3,i,kl)**2 ) / q(l,i,kl) 

c else 

c q(l, i, kl) - 2.*q(l,i,k2) - q!l,i,k2-l) 

endif 

360 continue 
endif 

c..boundary condition treatment for the wake *** 
ng - 1 
k - 1 

il « iwks(ngj-l 
do 400 1-1,4 
do 400 i - 1,il 
il - i 

iu - imx(ng) - i + 1 

c..average values on upper and lower surfaces of cut, 
q(1, il, k) - 0.5* ( q(l,iu, k+1) + q(l,il,k+l) ) 
q(1, iu, k) - 0.5 ' ( q(l, iu, k+1) + q(l,il,k+l) ) 

400 continue 
return 
end 


C- 

subroutine step 
include ’corns.f* 
dimension qold(4,nia,nka) 
nt - 1 

c.. store all the q values to facilitate an iterative update *** 
do 1 1-1,4 
do 1 i«l,imx(l) 
do 1 k-1,kmx (1) 
qold(l,i, k) - q (1, i, k) 

1 continue 

c.. update all the q values *** 

DO 1000 loop - 1, newtit 
c..update outer be 

c if (poten .and. loop .eq. 1 ) call nspot 

c if (.not. poten .and. loop .eq. 1 ) then 

c..write out dphi/dt related terms., 
c rho - q(l,61,39) 

c pres - gmm* (q(4,61,39) - 0.5* { q(2, 61,39) **2 + q(3, 61,39) **2 ) 

c > / rho ) 

c v2 (q(2,61,39)/rho)**2 + (q(3,61,39)/rho)**2 

c dfdt - 0.5* (uinf**2-v2) + rgmm*(1.-(gamma*pres)**(gmm/gamma)) 

c write(6,*(3x,el4.4,14x,3el4.4)’) dfdt, rho, pres, v2 
c endif 

c..update all the qsi values 
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461 
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465 

466 

467 

468 

469 

470 

471 

472 
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474 
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477 
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480 

481 
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484 

485 

486 
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488 
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490 
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500 
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506 


10 


101 

> 


20 


do 10 k - 1, kax(nt) 
do 10 1 • 1, 4 

do 10 i - 1, imx(nt) 

qd(l,i,k) - -( q(l,i,k) - qoldd.i.k) )/aja(i,k) 
continue 
call rhsosh 
call lhs 
adromax * 0.0 
do 20 k « 2, kmxl(nt) 
do 20 i - 2, imxl(nt) 

dro - aja(i,k)*qd(l,i,k) 
adro • abs(dro) 
if ( adromax .It. adro) then 
dromax • dro 
adromax ■ adro 
ires - i 
kres - k 
endif 

if(.not.(adro .It. 5.0 .and. adro .ge. 0.))then 
write(6,101) iter, adro, i,k 
format(//' *** It has BLOWN UP *** 8 ITER 

• drho - ',ell.3, ' 8 *, 2i4 ) 

stop 

endif 

continue 


i5 / 


do 30 k - 2, kmxl(nt) 
do 30 1 - 1, 4 

do 30 i ■ 2, imxl(nt) 

q(1,i, k) - q(l,i,k) + aja fi, k) *qd (1, i, k) 

30 continue 

call be 
1000 CONTINUE 

if( mod(iter,nload).eq.O .or. 

> itr .eq. 1 .or. itr .eq. niter) then 
call loads 

write (6,60) iter,alfad,time,dromax, 

> q(l,ires,kres), ires,kres,cm,cd,cl 

60 format (i5 ,f6.2, lx,f8.4, ell.3,f9.4, 2i4, 2x,3f8.4) 
************* q\ loop 

c if ((.not.(oscil.or.ramp)) .and. (abs (clo-c)).It..001))then 

c call qio(0) 

c stop 

c endif 

c clo-cl 

************* 

elseif ( mod(iter,nprint).eg.0) then 
write (6,60) iter,alfad,time,dromax, 

> q(l,ires,kres), ires,kres 
endif 

return 

end 

C---- 

subroutine rhsosh 
include ’corns.f' 

common /dfdq / ap(nia,4,4), am(nia,4,4) 
common /fmet /aktj(nia),aktnj(nia), 

> akxj(nia),akzj(nia),ajac(nia,2),adt(nia) 

common /flux /qvfnia,2,4),fnum(nia,4),dfp(nia,4,3),dfm(nia,4,3) 

> ,dvq(nia,4,3) 
common /osflxs/ dfpt(nia,4), dfmt(nia, 4) 

common /osvars/ r(nia,6),u(nia,6),v(nia,6),e(nia,6) 
dimension akx(nia), akz(nia), akt (nia), aktn(nia) 
nt«*l 

oneby6*l.0/6.0 
c 

do 1000 k-2,kmxl(nt) 

£* + + * + ♦♦***♦♦***♦*•***♦♦♦♦*•#***■**♦♦***♦****♦♦*♦**♦****♦*♦****♦♦♦* **♦*♦★♦♦ 
c compute the fluxes for all the segments in the psi direction 

^***************************************************** ******** ** 
do 110 i-2,imx(nt) 
il-i-1 
i4*i 

r (i,l)-q(l,il,k) 
u(i,l)«q(2,il,k)/r(i,l) 
v(i,l)»q(3,il,k)/r(i,l) 
e(i,l)*q(4,il,k) 
r (i, 4)-q(l,i4, k) 
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508 

509 

510 
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512 
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514 

515 

516 
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521 

522 
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524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 


u(i,4)-q(2,i4,k)/r(i,4) 
v(i,4)-q(3,i4,k)/r(i,4) 
e (i, 4) -q(4, i4, k) 
xi_x«0.5*(xix(il,k)+xix(i4,k)) 
xi_z-0.5* (xiz(il, k)+xiz(i4,k)) 
xi_t-0.5*(xit (il, k)+xit (i4, k)) 
ze_t-0.5*(zet(il,k)+zet(i4, k)) 
akt j (i) - xi t 
aktnj(i)- ze_t 
akx} (i) - xi_x 
akzj(i) - xi_z 
110 continue 
ilft-2 
irgt-imx <nt) 
call osflux(ilft,irgt) 

c*********************************************************************** 
c add the fluxes in each subpath 

c *********«*************************«************************>********** 
do 120 n-1,4 
do 120 i-ilft,irgt 

dfpt (i,n)«dfp(i,n, l)+dfp(i,n,2)+dfp(i,n, 3) 
dfmt (i,n)-dfm(i,n, 1) +dfm(i,n, 2) +dfm(i,n, 3) 

*z0 continue 

<.**«*****♦«.*«****♦«****»*.*******»**»«»****»*****«*♦«*•♦*•**»♦******** 
c add the eta flux contribution for the second and last but one 
c points (second order accurate fluxes) 
c »****.***..»»**«*»♦***.»«***•************•*»•******••***••*••****••»•• 

idif-imx(nt)-3 
do 130 n-1,4 

do 130 i-2,imxl(nt),idif 

ipO-i 

ipl-i+1 

qd(n, i, k)«qd (n,i, k) -dt (i, k) * (fnum(ipl,n) -fnumtipO,n) + 

> 0.45*(dfpt(ipl.n)-dfpt(ip0,n)-dfmt(ipl,n)+dfmt(ipO,n))) 

130 continue 

c add the eta flux contribution for the points in the interior 
c points (third order accurate fluxes) 

£************************************************************************* * 
do 140 n-1,4 
do 140 i-3,imx2(nt) 
iml-i-1 
ipO-i 
ipl-i+1 
ip2»i+2 

qd(n,i,k)-qd(n,i,k)-dt (i,k)*(fnum(ipl,n)-fnumtipO,n) 

> +oneby6*(2.0*dfpt(ipl,n)-dfpt(ipO.n)-dfpt(iml,n)) 

> +oneby6*(2.0*dfmt(ip0,n)-dfmt(ipl,n)-dfmt(ip2,n))) 

140 continue 

1000 continue 

do 2000 i-2,imxl(nt) 

£*•* + ■* *****★******♦♦****★**♦******■♦****•***-*♦**♦**■★**•★* ♦*♦**♦♦♦****** 

c compute the fluxes for all the segments in the zet direction 
£**+* + *++*** + + •** + + + ** + ** + *+ + ** + + *♦**♦ + *+*♦*•****+**** + ♦** + ***+** + * + ♦♦* + + * 
if( i .It. iwks(nt) .or. i .gt. iwke(nt) ) then 
kbot - 1 
else 
kbot - 2 
endif 

ktop-kmx(nt) 
do 210 k-kbot,kmx(nt) 
if(k .eq. 1) then 
ii - imx(nt)-i+l 
kl - 2 
sign—1. 
else 
ii - i 
kl - k-1 
sign-1, 
endif 
k4-k 

r(k,l)-q(l,ii,kl) 

u (k, l)-q(2, ii, kl) /r (k, 1) 

v(k, l)-q(3, ii, kl)/r (k, 1) 

e(k,l)-q(4,ii,kl) 

r(k,4)-q(l,i,k4) 

u(k,4)-q(2,i,k4)/r(k,4) 

v(k,4)-q(3,i,k4)/r(k,4) 
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597 

598 

599 

600 
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604 
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608 
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617 

618 
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624 
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629 
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631 
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635 

636 
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639 

640 

641 

642 

643 

644 

645 
64 6 

647 

648 
64 9 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 


e(k,4)-q(4,i, k4) 

ze x-0.5*(sign*zex(ii,kl)+zex{1,k4)) 
ze~z«0.5*(sign*zez(ii,kl)+zez(i,k4)) 
ze^t-0.5* <sign*zet(ii,kl)+ zet(1,k4)) 
xi3t“0.5*(sign*xit(ii,kl)+xit(i,k4)) 
aktnj(k)-xi t 
akt j(k)-ze r 
akxi (k)«ze~x 
»kz3(k)-ze~z 
210 continue ~ 

call osflux(kbot,ktop) 

c********************************************************************** 
c add the fluxes in each subpath 

c********************************************************************** 
do 220 n-1,4 
do 220 k-kbot,ktop 

dfpt (k,n)-dfp(k, n, 1) +dfp(k,n,2) +dfp(k,n,3) 
dfmt (k,n)-dfm(k,n, l)+dfm(k,n,2)+dfm(k,n,3) 

220 continue 

c ********************************************************************** 
c add the eta flux contribution for the last 

c point (first, or second order accurate fluxes) 

c ********************************************************************** 
c — second order at the inner boundaries — 
c qd(n,i,k) - qd(n, i, k)-dt (i, k) * (fnum(kpl,n)-fnum(kp0,n) + 
c > 0.45*(dfpt(kpl,n)-dfpt(kpO,n)-dfmt(kpl,n)+dfmt(kp0,n))) 
do n ■ 1,4 

if(kbot .eq. 2 ) then 
k-2 
kpO-k 
kpl-k+1 

c qd(n,i,k) « qd(n, i, k)-dt (i, k) * (fnum(kpl,n)-fnum(kp0,n) + 

c > 0.45*(dfpt(kpl,n)-dfpt(kp0,n)-dfmt(kpl,n)+dfmt(kp0,n))) 

qd(n,i,k) - qd (n, i, k)-dt (i,k) * ( fnum(kpl,n)-fnum(kp0,n) ) 
endif 
k-kmxl(nt) 
kpO-k 
kpl-k+1 

qd(n,i,k) - qd(n,i,k)-dt(i,k)*( fnum(kpl,n)-fnum(kpO,n) ) 

k-kmx2(nt) 

kpO-k 

kpl-k+1 

qd(n,i,k) - qd(n, i, k)-dt (i, k) * ( fnum (kpl, n)-fnum (kp0,n) ) 
enddo 

Q* * + ***********+*** + *+***** *********************************** ********* 

c add the eta flux contribution for the points in the interior 
c points (third order accurate fluxes) 

Q*** ****** ************************************** ************************ 

do 240 n-1,4 

do 240 k-kbot+1,kmx2(nt)-1 

kml-k-1 

kpO-k 

kpl-k+1 

kp2-k+2 

qd(n, i, k)-qd(n, i, k) -dt (i, k) * (fnum(kpl,n) -fnum(kp0,n) 

> +oneby6*(2.0*dfpt(kpl,n)-dfpt(kp0,n)-dfpt(kml,n)) 

> +oneby6*(2.0*dfmt(kp0,n)-dfmt(kpl,n)-dfmt(kp2,n))) 
240 continue 

2000 continue 

if( vise ) call oshvrhs 

return 

end 

C- 

subroutine lhs 

parameter (nikp - 213, ninv-61) 
include ’corns.f’ 

common /ctri /amat(ninv,nikp,4,4), bmat(ninv,nikp,4,4), 

> cmat(ninv,nikp,4,4), fmat(ninv,nikp,4) 
common /swvar / rsw(nia), usw(nia), vsv(nia) ,esw(nia) 
common /dfdq / ap(nia,4,4), am(nia,4,4) 

common /fmet /aktj(nia),aktnj(nia), 

> akxj(nia),akzj(nia),ajac(nia, 2),adt(nia) 

common /flux /qv(nia,2,4),fnumfnia,4),dfp(nia, 4,3) ,dfm(nia,4,3) 

> ,dvq(nia,4,3) 

common /visdi /vmui(nka), tmui(nka) 

dimension iline(nikp), kline(nikp) 

nt-1 
ng - 1 
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c..inversion in the psi direction *** 
klft-2 

krgt-kmxl(nt) 
line-0 

do 1000 k-klft,krgt 
kpl-k+1 
kml-k-1 

line-line+1 

if(line.gt.ninv) line-line-ninv 
kline(line)-k 

c..initialize the matrices *** 
do 110 1-1,4 

do 110 i-l,imx(nt) 

fmat(line,i,l)-qd (1,i, k) 

110 continue 

c..calculate the matrices aplus and aminus *** 
do 120 i-l,imx(nt) 
yac - aia(i,k) 

akxj(i) - xix(i,k) * yac 

akzj(i) - xiz(i,k) * yac 

aktj(i) - xit(i,k) * yac 

adt(i) - dt(i,k) 
ajac(i,l)» aja(i.k) 
ajac(i,2)- aja(i,k) 
rsw(i) - q(l,i,k) 
usw(i) - q(2,i,k)/q(l,i,k) 
vsw(i) - q(3,i,k)/q(l,i,k) 
esw(i) - q<4, i, k) 

120 continue 

do 130 1-1,4 

do 130 i-l,imx(nt) 
qv (i, 1,1) -q (1, i, k) 
qv(i,2,l)-q(l,i,k) 

130 continue 

ilft-1 

irgt-imx(nt) 

call smatrx(ilft,irgt) 

c.. calculate the matrices amat, bmat and cmat *“ 
do 140 1-1,4 
do 140 m-1,4 

do 140 i-2,imxl(nt) 
ip - i+1 
im - i-1 

amat (line, i,l,m)—ap(im,l,m) 
bmat(line,i,l,m)- ap(i ,l,m)-am(i,l,m) 
cmat(line,i,l,m)- am(ip,l,m) 

140 continue 

c..add the contribution from the time term *** 
ilft-1 
irgt-imx(nt) 
do 150 1-1,4 

do 150 i-ilft f irgt 

bmat(line,i,1,1)-bmat(line,!,1,1)+1.0 
150 continue 

i-1 

do 160 1-1,4 

fmat(line,i,l)-0.0 
do 160 m-1,4 

amat(line,i,l,m)-0.0 
bmat (line,i,l,m)-0.0 
cmat(line,i,l,m)-0.0 

160 continue 

do 161 1-1,4 

bmat(line,i,l,l) - 1 

161 continue 

i-imx(nt) 
do 165 1-1,4 

fmat(line,i,l)-0.0 
do 165 m-1,4 

amat(line,i,l,m)-0.0 
bmat(line,i,l,m)«0.0 
cmat(line,i,l,m)-0.0 

165 continue 

do 166 1-1,4 

bmat(line,i,1,1) - 1 

166 continue 

iff line .eq. ninv .or. k. eq. krgt ) then 
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c..solve th« block tridiagonal system “* 
call btri(1, imx(nt),line) 
c..redefine tha rha vactor *** 

do 170 lcount-1,lina 
kd-kline(1count) 
do 170 1-1,4 
do 170 i<**l,imx(nt) 

qd(l,id, kd)-fmat (lcount, id, 1) 

170 continue 

and if 

1000 continue 

c..inversion in the zeta direction *** 
ilft-2 

irgt-imxl(nt) 
line-0 

do 2000 i-ilft,irgt 
ipl-i+1 
iml-i-1 
line-line+1 

if(line.gt.ninv) line-line-ninv 
iline(line)-i 

c..initialize the matrices *** 
do 210 1-1,4 

do 210 k-l,kmx(nt) 

fmat(line,k,l)-qd(l,i,k) 

210 continue 

c..calculate the matrices aplus and aminus *** 
do 220 k-1,kmx(nt) 
yac - aja(i,k) 

akxj(k) - zex(i,k) * yac 
akzj(k) - zez(i,k) * yac 
aktj(k) - zet(i,k) * yac 
adt (k) - dt (i, k) 
ajac(k,l)- aja(i,k) 
ajac(k,2)- aja(i,k) 
rsw(k) - q(l, i, k) 
usw(k) - q(2,i,k)/q(l,i,k) 
vsw(k) - q(3,i,k)/q(l,i,k) 
esw(k) - q(4, i, k) 

220 continue 

do 230 1-1,4 

do 230 k-1,kmx(nt) 
qv(k,l,l)-q(l,i,k) 
qv(k,2,l)-q(l,i,k) 

230 continue 

klft-1 
krgt-kmx(nt) 
call smatrx(klft,krgt) 

c..calculate the matrices amat, bmat and cmat *** 
do 240 1-1,4 
do 240 m-1,4 

do 240 k-2,kmxl(nt) 
kp-k+1 
km-k-1 

amat (line, k,l,m)—ap(km, l,m) 

bmat (line, k, l,m)- ap(k ,l,m)-am(k,l,m) 

cmat (line, k, l,m) - am(kp,l,m) 

240 continue 

c..add the viscous eta contribution to the lhs *** 
if ( vise ) then 
klft-1 
krgt-kmx(nt) 
do 300 k»klft,krgt 
vmui (k)-vismu(i, k) 
tmui (k)-turmu (i, k) 
akxj (k) - zex (i, k) 

akzj (k) - zez(i.k) 

aktj(k) - zet(i,k) 

300 continue 

call vmatrx(klft, krgt) 
do 310 1-1,4 
do 310 m-1,4 

do 310 k-2,kmxl(nt) 
kp-k+1 
km-k-1 

amat (line, k, l,m)-amat (line, k, l,m) -ap(km, l,m) 
bmat (line, k,l,m)-bmat (line,k,l,»)+ap(k ,l,m) + 
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> ap(k ,1,*) 

cnat (line. It, 1,a)-cmat (lina, k, l,a) -ap(kp,l,m) 
310 continue 

endif 

c..add the contribution frow the time term *** 
klft-1 
krgt-kmx(nt) 
do 250 1-1,4 

do 250 k-klft,krgt 

bmat(line,k,1,l)-bmat(line,k,1,1)+1.0 
250 continue 

k-1 

do 330 1-1,4 

fmat (line, k, D-0.0 
do 330 m-1,4 

amat(line,k,l,m)-0.0 
boat(line, k,l,m)-0.0 
cmat(line,k,l,»)-0.0 

330 continue 

do 331 m-1,4 

bmat (line,k,m,m)-1.0 

331 continue 
k-kmx (nt) 

do 340 1-1,4 

fmat(line,k,l)-0.0 
do 340 m-1,4 

amat(line,k,l,m)-0.0 
bmat(line,k,l,m)-0.0 
cmat (line, k, l,m) -0.0 

340 continue 

do 341 m-1,4 

bmat (line, k,m,m)-1.0 

341 continue 

if( line .eq. ninv .or. i.eq.irgt ) then 

c..solve the block tridiagonal system *** 
call btri(1,kmx(nt),line) 
c..redefine the rhs vector *** 

do 270 lcount«l,line 
id-iline(lcount) 
do 270 1-1,4 
do 270 kd-l,kmx(nt) 

qd(1,id,kd)-fmat(1count,kd,1) 

270 continue 

endif 

2000 continue 
return 
end 


subroutine osflux(lbeg,lend) 
parameter (nia - 213, nka - 61) 

common /gamvl /gamma, gmm, gmp, 

> rgamma, rgmm, rgmp, 

> gmbygp 

common /fmet /akt](nia),aktnj(nia), 

> akxj (nia) ,akzj (nia) ,ajac(nia,2) ,adt (nia) 

common /flux /qv(nia,2,4), fnum(nia,4),dfp(nia,4,3),dfm(nia,4,3) 

> ,dvq(nia,4,3) 
common /osflxs/ dfpt(nia,4),dfmt(nia,4) 

common /osvars/ r(nia,6),u(nia,6),v(nia,6),e(nia,6) 
dimension eigll(nia),eigl2(nia),eig21(nia),eig22(nia),eig31(nia) 
dimension eig32(nia),p(nia,6),c(nia,6),fact(nia) 
dimension fvs(nia,4,6),u_b(6),v_b(6),vqs(nia,4,4) 

c ********»******•***•*•**••***T«*****T«****•*•**••*•••***•***•*••*•**• 

c define constants for the osher scheme 

c*********************************************************** ********** 
osher—1.0 
exp-0.5*gmm 
rexp-1.0/exp 


c calculate the intermediate quantities 
c********************************************************* 
do 10 l-lbeg,lend 

p(l, l)-gmm* (e (1, l)-0.5*r (1,1) * (u(l, 1) **2+v(l, 1) **2)) 
c(l,l)-sqrt (gamma*p(1,1) /r (1,1)) 

p(l, 4)-gmm* (e(l,4)-0.5*r(l,4)*(u (1,4)**2+v (1,4) **2)) 
c(l,4)-sqrt(gamma*p(l,4)/r(l,4)) 
fact(l)-sqrt(akxj(l)**2+akzj(1)**2) 
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Of act “1.0/fact(1) 

•kt j (1) -ofact'aktj (1) 
a lex 3 (1) -ofact*akxj (1) 
akzjd) -ofact*akz)(1) 
aktnj(l)-ofact*aktnj(1) 

10 continua 

do 20 l-lbeg,lend 

u b(l)-u(l,l)*akxj (l)+v(l,l)*akzj (1) 
v b(l)-v(l,l)*akxj (l)-u(l, 1) *akz) (1) 
ub(4)-u(l,4)*akxj (1)+v(1,4) *akzj (1) 
v“b(4)-v (1,4) *akxj (1)-u(1,4)*akz)(1) 

•z-(p(l,4)/pd, 1) )** (0.5*rgaena)/sqrt (r(l,4)/r(l,l)) 
u b(2)-(u_b(4)+osher*rexp*c(l,4)+az* (u b(l) 

> ~ -*osher*rexp*c(l,l)))/(l.$+az) 

u b(3)-u b(2) 
v“b(2)-v_b(l) 
v"b(3)-v bf4> 

c7l,2)-c7l,l)+osher*exp*(u_b(2)-u b(l)) 
c(l,3)-c(l,4)+osher*exp* (u b(4)-u~b(3)) 
r (l,2)-r (1,1) * (cd,2)/c(l,T>) **rexp 
r(l,3)-r(l,4)*(c(l,3)/c(l,4) )**rexp 
pd,2)-rgaawa*r (1,2) *c(l,2)*+2 
p(l, 3) -p(l, 2) 

u(l,2)-akxj (1) *u_b(2) -akzj (l)*v_b(2) 
v(l,2)«akzj(l)*u b(2)+akxjd)*v b<2) 
e(l,2)-0.5*r (1,2T* (u(l,2)**2+v(T,2)**2)+rgmn*pd,2) 


20 

c* 

c 

c* 


30 

c* 

c 

c* 


u(l,3)-akxj(l)*u_b(3)-akzj (l)*v b(3) 

v(l,3)-akzj (l)»u b (3) +akxj (1) *v b(3) 

e(l,3)-0.5'*r(l,3T*<u<l,3)**2+v(T,3)**2)+rgmn*pd,3) 

grvel - aktj(l) 

eigll(l)- ( u_b(l) ♦ grval ) + osher*c(l.l) 

eigl2(l)- ( u b(2) + grvel ) ♦ osher*c(l,2) 

eig21(l)« ( u~b(2) + grvel ) 

eig22(l)- ( u_b(3) + grvel ) 

eig31(l)« ( u_b(3) ♦ grvel ) - osher*c(l,3) 

eig32(l)- ( u_b(4) + grvel ) - osher*c(l,4) 

continue 


calculate fluxes at each of the nodes for all the segments 


do 30 m-1,4 
do 30 l-lbeg,lend 

Ucon -fact (1)* (akt j (1)+u(l,m) *akxj (l)+v(l,m)*akzj (1)) 

rUcon «r(l,m)*Ucon 

epp -e (l,m) +p (1 ,m) 

pfact -fact(l)*p(l,m) 

fvs(l,l,m)- rUcon 

fvs(l,2,m)- rUcon*u(l,m)+akxj (l)*pfact 
fvs(l,3,m)- rUcon*v(l,m)+akzj (l)*pfact 
fvs(1,4,m)-epp*Ucon -aktj(1)*pfact 

continue 


calculate dfp foe the first path 


do 40 l-lbeg,lend 
az-sign(1.0,eigll(1)) 
bz-sign(1.0,eigl2(l)) 
cz«az*bz 

dz-0.25*(cz+abs(cz))*(az+abs(az)) 
dfp(l, 1, l)-dz* (fvs (1,1,2) -fvs (1,1,1)) 
dfp(l, 2, l)«dz* (fvs (1,2,2)-fvs (1,2,1)) 
dfpd, 3, l)-dz* (fvs (1,3,2)-fvs (1,3,1)) 
dfp(l,4,l)-dz* (fvs(1,4,2)-fvs(1,4,1)) 


calculate dfp for the second path 


az-sign(1.0,eig21 (1)) 

dz-0.5*(az+abs(az)) 

dfpfl, 1,2)-dz* (fvs (1,1,3) -fvs (1,1,2)) 

dfp(1,2,2)-dz*(fvs(1,2,3)-fvs(1,2,2)) 

dfp d,3,2)-dz*(fvs (1,3,3)-fvs(1,3,2)) 

dfpd , 4,2) -dz* (fvs (1,4,3) -fvs (1,4,2)) 


c 

c 

c 


calculate dfp for the third path 
az-sign(1.0,eig31d)) 
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bz-aign(l.0,eig32(l)) 
cz-az*bz 

dz«0.25*(cz+abs(cz))*(az+abs(az)) 
dfp(1.1» 3)-dz*(fvs(1,1,4)-fvs (1,1«3)) 
dfp(1,2,3)-dz*(fvs(1,2,4)-fvs(1,2,3)) 
dfp (1,3,3)-dz*(fva(1,3,4)-fva(1,3,3)) 
dfp(1,4,3)-dz* (fva (1,4,4) -fva (1,4,3)) 
40 continue 


c correction for a aonic point in firat path 
£•*********•*•****•**************•••••*•«****••*+*••***+*••***+•+•*++ 
do 50 l-lbeg,lend 
az-sign(1.0,eigll(1)) 
bz-sign(1.0,eigl2(l)) 
if((az*bz).gt.0.0) go to 50 
u b(l)-ud,l)*akxj(l)+v(l,l)*akzj(l) 
v _ b(l)-v(l,l)*akxj (1) -u (1,1)*akzj (1) 
u - b(5)-gmbygp*(u b(l)-osher+rexp*c(l,l)) 
cTl,5)—osher*u E(5) 
v_b(5)-v_b(l) 
c 

u(l,5)-akxj (1) *u_b(5) -akzj (1) *v b(5) 
v(l,5)-akzj (l)*u b(5)+akxj (l)*v_b(5) 
r(l,5)-r(l,l)*(c7l,5)/c(l,l))**rexp 
p(l,5>-r(l,5)*c(l,5)**2/gainma 

e(l,5)-0.5*r (1.5)* (u(l,5) »*2+v(l, S)**2) +p (1,5) *rgiwn 
m»5 

Ucon -fact (1)* (akt j (l)+u(l,m) *akxj <l)+v(l,m)*akzj (1)) 

rUcon-r(1,m)*Ucon 

epp «e(l,m)+p(l.m) 

pfact-fact (1) *p(l,m) 

fva(1,l,m)-rUcon 

fva (l,2,m)-rUcon*u(l,m)+akxj (1) *pfact 
fvs(1,3,m)-rUcon*v(l,m)+akzj{1)*pfact 
fvs(1,4,m)-epp*Ucon -aktj(l)*pfact 

cz-0.5*(az+abs (az)) 
dz-0.5*(bz+abs(bz)) 
ez-cz-dz 

dfpd,l,l)“dfp(l,l,l)-cz*fvsd,l,l)+ez*fvs(l,l,5)+dz*fvsd,l,2) 
dfp(1,2,1)-dfp(1,2,1)-cz*fvs(1,2,l)+ez*fvs(l,2,5)+dz*fvs(1(2,2) 
dfp(1,3,1)-dfp(1,3,1)-cz*fvs(1,3,1)+e 2 *fvs(1,3,5)+dz*fvs(1,3,2) 
dfp(l,4,l)-dfp{l,4,l)-C2*fvs(l,4,l)+ez*fvs(l,4,5)+dz*fv3(l,4,2) 
50 continue 


c correction for a sonic point in third path 
(.******»**•»**»«*•******•*********•*•***«**••*••******••*»*•***•••••* 
do 60 1-lbeg,lend 
az-sign(1.0,eig31 (1)) 
bz-sign(1.0,eig32(1)) 
if((az*bz).gt.0.0) go to 60 
u b(4)-u (1,4) *akxj (1)+v(1,4) *akzj (1) 
v_b(4)-v(l,4)*akxj (1)-u(1,4)*akzj (1) 
u_b(6)-gmbygp*(u_b(4)+osher* rexp*c(1,4)) 
c (1,6)-osher*u_bT6) 
v_b(6)-v_b(4) 
c 

u(l,6)-akxj (l)*u_b(6)-akzj (l)*v_b(6) 
v(l,6)-akzj (1) *u~b(6)+akxj (l)*v b(6) 
r(l,6)»r(l,4)*(c7l,6)/cd,4))**rexp 
p(1.6)«r d,6)*c(l,6)**2/gamjna 

e(l,6)-0.5*rd,6)*(u(l,6)**2+v(l,6>**2)+pd,6)*rgmin 

m-6 

Ucon -fac'. (1) * (akt j (l)+u (l,m) *akxj (l)+v(l,m) *akzj (1)) 

rUcon «rd,m)*Ucon 

epp -e(l,m)+p(l,m) 

pfact -fact(1)*p(l,m) 

fvs(l,l,m)- rUcon 

fvs(l,2,m)« rUcon*u(l,m)+akxj (l)*pfact 

fvs(l*3,in)« rUcon*v(l,m)+akzj (l)*pfact 

fvs(1,4,m)-epp*Ucon -aktj(l)*pfact 

cz-0.5* (az+abs (az)) 
dz-0.5+(bz+abs(bz)) 
ez-cz-dz 

dfpd, 1,3)-dfp(l, 1,3) -cz*fvs (1,1,3)+ez+fvs (1,1,6)+dz*fvs (1,1,4) 
dfp(l,2,3)«dfp(l,2,3)-cz*fvs(l,2,3)+ez+fvs(l,2,6)+dz*fv3(l,2,4) 
dfp(l,3,3>-dfp(l,3,3)-cz*fvsd,3,3)+ez*fvs(l,3,6)+dz*fvsd,3,4) 
dfp(l, 4,3)-dfp(l, 4,3)-cz*fvs (1,4,3) +ez*fvs (1,4,6)+dz*fvs(1,4,4) 
60 continue 
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c calculate dfm for all tha paths and fnu* for tha segment 
c************************************************************* 
do 70 k«l,4 
do 70 l-lbeg,lend 

dfm(l, k, l)«fvs (1, k, 2) -fvs (1, k, 1) -dfpd# k, 1) 
dfmd, k, 2)-fvs d« k, 3) -fvs (1, k, 2) -dfp d# k, 2) 
dfmd, k, 3)“fvs (1, k, 4) -fvs (1, k, 3) -dfpd, k, 3) 
dfpl-dfpd» k, 1) *dfp d, k, 2) *dfp d. k, 3) 
fnum (1, k) -fvs d# k, 4) -dfpl 
70 continue 


c calculate dvq for all the paths 

(.*•••«*••*•*••*•••*•***••**•••***••**•*•*•*»•**•**•*•*** 

do 80 m-1,4 
do 80 l«lbeg,lend 
az-gun/pd>m) 
bz«az*r d,m) 

vqsd,l,m) -q«ap-loq(pd,m)/r (l,m)**gawna)-ar*ed#m) 
vqs d,2,m)-bz*ud,m) 
vqs d,3,m)-bz*v(l,m) 
vqs (1,4,m)—bz 
80 continue 

do 90 k-1,4 

do 90 l»lbeg,lend 

dvqd# k, l)«vqs (1, k, 2) -vqs (1, k, 1) 

dvq(1, k, 2)-vqs d, k, 3) - vqs d, k, 2) 

dvqd, k, 3)-vqs (1, k,4)-vqs (l,k, 3) 

90 continue 

return 
end 


C- 

subroutine oshvrhs 
include ’corns.f' 

common /flux /qv(nia,2,4),fnumtnia,4),dfp(nia,4,3),dfm(nia,4,3) 
> ,dvq(nia,4,3) 

nt - 1 

obyre-1.0/reynnu 
call mulam 

if ( turbl ) call eddybl 

£ *♦♦♦'******* + *♦♦**♦♦***♦******♦** + ■**♦•***** +***** * **♦+♦♦**♦***♦***♦** * 
c compute the eta direction viscous terms 
£***★*****♦+******■***** **************** ******************* *********** 
do 1000 i-1,imx(nt) 
ip-i+1 
im-i-1 

do 20 k-2,kmx(nt) 

km-k-l 

u_xi-0.0 

w_xi-0.0 

a xi-0.0 

uTJ - q(2,i,k }/q(l,i,k ) 
ul - q<2,i,km)/q(l,i f km) 
u ze - uO - ul 
vTS - q(3,i,k )/q(l,i,k ) 
wl - q(3,i,km)/qd,i,km) 
v ze - wO - wl 

aff - ( q(4,i, k )/qd,i,k ) - 0.5*( u0**2 + v0**2 ) ) 
al - ( q(4,i,km)/qd, i,km) - 0.5* { ul**2 + wl**2 ) ) 
a ze - aO-al 

£♦**♦*+?-**♦♦ ********** *♦*♦♦ + ** *♦*******♦*♦*♦♦*♦♦★*•*♦♦♦♦*♦*****♦**★♦*♦ 


c compute the necessary metrics 

c**********************************- 


xi_x - 0.5*( xix(i,km)+xix\l,k) ) 
xi_z - 0.5*( xiz(i,km)+xiz<i,k) ) 
ze_x - 0.5*( zex (i, km)+zex (i, k) ) 
ze_z - 0.5* ( zez(i,km)+zezii,k) ) 
ajac - 0.5*( aja (i, km)+aja d, k) ) 

c ajac - 1. 

£•** + ♦*♦ + •*•*•»*** + *•*'* + -** + **♦*♦****'»♦-***•**♦ + **♦*♦********«*** + *'*« + * + * *4 

c compute the velocity derivatives w.r.t. x and 2 

£**♦*********♦*♦+♦♦*★*********♦*♦*♦♦♦+♦**♦♦*♦*♦♦**♦♦♦♦**********♦*4 


Ux - ajac*( u_xi*xi_x + u_ze*ze_x ) 
Wx - ajac* l w_xi*xi_x + v - ze*ze_x ) 
Ax - ajac*( a_xi*xi_x + a _ ze*ze_x ) 
Uz - ajac*( u_xi*xi_z + u~ze*ze_z ) 
Wz - ajac*( w xi*xi_z * w"ze*ze_z ) 
Az - ajac*( a^xi*xi_z + a~ze*ze_z ) 
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c 

c 

c 


c 

c 

C' 


20 


30 

1000 

C- 


c 

c 

c 


c 

c 

c 


c 

c 

c 


compute the stress tensors 


Vmu - 0.5*obyre*( vismu(i,km) + vismu(i,k) ) 
Tmu - 0.5*obyre*( turmu(i,km) + turmu(i,k) ) 
Cmu » Vmu+Tmu 

T xx - Cmu*( 2.0*Ux-2.0*(Ux+Wz)/3.0 ) 

T"zz - Cmu*( 2.0*Wz-2.0*(Ux+Wz)/3.0 ) 

T_xz - Cmu*( Uz+Wx ) 

Uvel » 0.5*{ uO + ul ) 

Wvel - 0.5*( wO + wl ) 
akbycp » Vmu/prkin+Tmu/prtur 
gkbycp » gamma * akbycp 

Rx - Uvel*T_xx + Wvel*T_xz ♦ gkbycp*Ax 

Sz - Uvel*T xz + Wvel*T zz + gkbycp’Az 

compute the numerical fluxes 


fnumtk, 1) - 0.0 

fnumtk, 2) - ze_x*T_xx ♦ ze_z*T_xz 

fnumtk,3) « ze_x*T_xz + ze_z*T_zz 

fnumtk,4) - ze~x*Rx + ze“z*Sz 

continue 

do 30 n»l,4 

do 30 k-2,kmxl (nt) 

kpO-k 

kpl-k+1 

qd(n,i,k)-qd(n,i,k)+dt (i,k)*t fnum(kpl,n)-fnum(kpO,n) ) 

continue 

continue 

return 

end 


subroutine vmatrxtjkbeg, jkend) 
parameter (nia - 213, nka - 61) 
common /dfdq / ap(nia,4,4), am(nia,4,4) 
common /fmet /aktj(nia),aktnj(nia), 

> akxj(nia),akzj(nia),ajac(nia,2),adt(nia) 

common /flux /qv(nia,2,4),fnumfnia,4),dfp(nia,4,3),dfm(nia,4,3) 

> , dvq(nia,4,3) 


common /gamvl /gamma, 

> rgamma, 

> gmbygp 
common /tmval /timeacc, time, 
logical timeacc 

common /visdi /vmui(nka), 
common /visvl /reynnu,reynph, 
const-1./reynnu 
ratlb3-l.0/3.0 
rat4b3-4.0/3.0 


gmm, gmp, 

rgmm, rgmp, 

dtau,dt(nia,nka),cour 

tmui(nka) 

prkin, prtur 


*** logic for zeta direction matrices ** 

do 10 jk-jkbeg,jkend 
adm - ajac(jk,l) 
zetax - adm*akxj(jk) 
zetaz - adm*akzj(jk) 
zetaxsq- zetax**2 
zetazsq- zetaz**2 

*** compute the viscous parameters *** 

amu - const*adt(jk)*vmui(jk) 

bmu - const*adt(jk)*tmui(jk) 

fmu - amu+bmu 

akbycp- amu/prkin + bmu/prtur 

*** compute often used terms *** 

alfO - gamma*akbycp*(zetaxsq+zetazsq) 
alfl - fmu*(rat4b3*zetaxsq+zetazsq) 
alf3 « fmu*ratlb3*zetax*zetaz 
alf4 - fmu*(zetaxsq + zetazsq) 
alf5 - fmu*ratlb3*zetay*zetaz 
alf6 - fmu*(zetaxsq + rat4b3*zetazsq) 
rval - 0.5*(qv(jk,l,l)+qv(jk, 2,1)) 
obyr - 1.0/rval 
obyrl - 1.0/qv(jk, 1,1) 
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c 

c 

c 


10 


obyr2 - 1.0/qv(jk,2,l) 

uval - 0.5* (qv( jk, 1,2) *obyrl+qv (jk, 2,2) *abyr2) 

wal - 0.5*(qv(jk,l,3)*obyrl+qv(jk,2,3)*obyr2) 

aval - 0.5«(qv(jk,l,4)+qv(jk,2,4)) 

ubyro - uval*obyr 

wbyro - wval*obyr 

usqby - obyr*uval**2 

uwbyr - obyr*uval*wal 

wsqbyr - obyr*wal**2 

ebyrsq - eval*obyr**2 

*** compute the viscous matrix *** 


1222 

apfjk, 1,1) 

m 

0.0 

1223 

*p<: 

k,l,2) 

m 

0.0 

1224 

•p(: 

k, 1,3) 

m 

0.0 

1225 

«p(: 

k,l,4) 

m 

0.0 

1226 

ap(i 

k,2,l) 

m 

-alfl*ubyro-alt3*wbyro 

1227 

«p(: 

k,2,2) 

m 

alfl*obyr 

1228 

ap(3 

k, 2,3) 

m 

alf3*obyr 

1229 

ap(: 

k, 2,4) 

m 

0.0 

1230 

ap(j 

k, 3,1) 

m 

-alf3*ubyro-alf6*wbyro 

1231 

ap( jk, 3,2) 

m 

alf3*obyr 

1232 

ap (: 

k, 3,3) 

m 

alf6*obyr 

1233 

apt: 

k,3,4) 

m 

0.0 


bz - -alfl*usqbyr-alf6*wsqbyr 
cz - alfO*(usqbyr+wsqbyr-ebyrsq) 


ap(jk,4,l) 
ap(jk, 4,2) 
ap( jk, 4,3) 
ap( jk, 4,4) 
continue 
return 
end 


bz+cz 

- -ap(jk,2,l)-alf0*ubyro 

- -ap(jk,3,1)-alf0*wbyro 

- alf0*obyr 


subroutine smatrxtikbeg,ikend) 
parameter (nia « 213, nka - 61) 
common /dfdq / ap(nia,4,4), am(nia,4,4) 

/ rsw(nia) ,usw(nia), vsw(nia) ,esv(nia) 

/aktj(nia),aktnj(nia), 
akx](nia),akzj(nia),ajac(nia,2) ,adt(nia) 
/qv(nia,2,4), fnum(nia,4),dtp(nia,4,3),dfm(nia,4,3) 

> ,dvq(nia,4,3) 

common /gamvl /gamma, gran, gmp, 

> rgamma, rgmm, rgmp, 

> gmbygp 

common /tmval /timeacc, time, dtau,dt(nia,nka),cour 
logical timeacc 


common /swvar 
common /fmet 

> 

common /flux 


dimension akxsq(nia),akzsq(nia),ofact(nia) 

dimension eigl(nia),eig2(nia),eig3(nia),eig4(nia),eig5(nia) 

dimension eig6(nia),eig7(nia),eig8(nia),eig9(nia),eigl0(nia) 

dimension eigmd(nia,4),eigmdpl(nia,4),p(nia),c(nia) ,qsqby2(nia) 

eps>0.02 

do 10 ik-ikbeg,ikend 

qsqby2 (ik) -0.5* (usw(ik) **2>vsw(ik) **2) 

p(ik) -gmm* (esw(ik) -0.5*Tsw(ik) *qsqby2 (ik)) 

c(ik) -sqrt (gamma*p(ik)/rsv(ik)) 

ofact (ik) -sqrt (akxj (ik) **2+akzj (ik) **2) 

fact-1.0/ofact(ik) 

akt j <ik)-fact*akt j (ik) 

akxj (ik)-fact*akxj (ik) 

akzj (ik)-fact*akzj (ik) 

akxsq(ik)-akxj (ik) **2 

akzsq(ik)-akzj (ik)**2 

tconst-0,25*adt(ik)/sqrt(1.5) 

az-tconst*ofact(ik) 

eigmdfik, l)-az* (akt j (ik) +usv(ik) *akxj (ik)+vsw(ik) *akzj (ik)) 
eigmd(ik,2)-eigmd(ik,1) 
bz-az*c(ik) 

eigmd(ik,3)-eigmd(ik, 1)+bz 
eigmd (ik, 4)-eigmd (ik, 1) -bz 
add-(az*eps)**2 

eigmdpl (ik, l)-sqrt (eigmd (ik, l)**2+add) 
eigmdpl (ik,2)-sqrt (eigmd (ik, 2) **2+add) 
eigmdpl(ik,3)-sqrt(eigmd(ik,3)**2+add) 
eigmdpl(ik,4)-sqrt(eigmd(ik,4)**2+add) 
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1267 

1286 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 


10 continue 

do 20 ik-ikbeg,ikend 
eigmdl-eigmd(ik, 1)+eigmdpl (ik, 1) 
eigmd2-eigmd(ik,2)+eigmdpl(ik, 2) 
eigmd3-eigmd (ik, 3) +eigmdpl (ik, 3) 
eigmd4«eigmd(ik,4)+eigmdpl(ik,4) 
eigl(ik)-eigmdl+eigmd2 
eig2(ik)-eigmd3+eigmd4 
eig3(ik)»eigmd4-eigmd3 
eig4 (ik) -eic|2 (ik) -eigl (ik) 
gbar-<jmm/c (ik) **2 
eig5uk)-gbar*eig4 (ik) 
eig6(ik)»gbar*eig3 (ik) *c (ik) 

•ig7 (ik)-eigl (ik) *akzsq(ik) +eig2 (ik) *akxsq (ik) 
eig8 (ik) -eigl (ik) *akxsq(ik) +eig2 (ik) *akzsq (ik) 
eig9 (ik)-akxj (ik) *akzj (ik) *eig4 (ik) 

•iglO (ik)-c (ik) *rgmm*eig3 (ik) 

20 continue 

do 30 ik-ikbeg, ikend 
az-eig3 (ik) /c(ik) 

ap(ik, 1,1)-eigl (ik) +qsqby2 (ik) *eig5 (ik) 

> + (akxj (ik) *usw(ik) +akzj (ik) *vsw(ik)) *az 
ap (ik, 1,2) — usw(ik) *eig5 (ik) -akxj (ik) *az 

ap (ik, 1,3)—vsw(ik) *eig5 (ik) -akz) (ik) *az 

ap(ik,l,4)-eig5(ik) 

az-akxj (ik) *eig6 (ik) 

ap (ik, 2, l)-usw(ik) *ap(ik, 1,1) -vsw(ik) *eig9 (ik) 

> -usw(ik) *eig7 (ik)-qsqby2 (ik) *az 

ap (ik, 2,2) -usw (ik) *ap(ik, 1,2) +eig7 (ik) +usw(ik) *az 
ap(ik, 2,3)-usw(ik)*ap(ik, l,3)+eig9(ik)+vsw(ik)*az 
ap(ik,2,4)-usw(ik)*ap(ik,l,4)-az 
az-akzj (ik) *eig6 (ik) 

ap (ik, 3, l)-vsw(ik) *ap(ik, 1,1) -usw(ik) *eig9 (ik) 

> -vaw(ik)*eig8 (ik)-qsqby2 (ik)*az 
ap(ik,3,2)-vsw(ik)*ap(ik, l,2)+eig9(ik)+usw(ik)*az 
ap (ik, 3,3) -vsw(ik) *ap(ik, 1,3) +eig8 (ik) +vsw(ik) *az 
ap (ik, 3,4) -vsw(ik) *ap(ik, 1,4) -az 

ap(ik, 4,1)—qsqby2 (ik)*ap(ik, 1,1)+usw(ik)*ap(ik,2,1) 

> +vsw(ik)*ap(ik,3,l)+qsqby2(ik)*eig2(ik) 

> +eigl0 (ik) * (usw (ik) *akx j (ik) +vsw(ik) *akzj (ik)) 
ap(ik, 4,2)—qaqby2 (ik) *ap(ik, 1,2)+usw(ik) *ap (ik,2,2) 

> +vsw(ik) *ap(ik, 3,2) -usw(ik) *eig2 (ik)-eiglO (ik) *akxj (ik) 
ap(ik, 4,3)— qsqby2 (ik) *ap(ik, 1, 3)+usw(ik) *ap(ik, 2,3) 

> +vsw(ik) *ap(ik, 3,3) -vsw(ik) *eig2 (ik)-eiglO (ik) *akzj (ik) 
aptik, 4,4)—qsqby2(ik)*ap(ik, l,4)+usw(ik)*ap(ik,2,4) 

> +vsw(ik)*ap(ik,3,4)+eig2(ik) 

30 continue 

do 40 ik-ikbeg,ikend 
eigmdl-eigmd (ik, 1) -eigmdpl (ik, 1) 
eigmd2-eigmd(ik,2)-eigmdpl(ik, 2) 
eigmd3-eigmd(ik,3)-eigmdpl(ik, 3) 
eigmd4-eigmd(ik,4)-eigmdpl(ik,4) 
eigl(ik)-eigmdl+eigmd2 
eig2(ik)-eigmd3+eigmd4 
eig3(ik)-eigmd4-eigmd3 
eig4 (ik)-eig2 (ik) -eigl (ik) 
gbar-gmm/c(ik)**2 
eig5(ik)-gbar*eig4 (ik) 
eig6 (ik)«gbar*eig3 (ik) *c (ik) 

eig7 (ik)-eigl (ik) *akzsq(ik)+eig2 (ik) *akxsq (ik) 
eig8 (ik)-eigl (ik) *akxsq(ik)+eig2 (ik) *akzsq(ik) 
eig9(ik)-akxj (ik)*akzj (ik)*eig4 (ik) 
eiglO (ik)-c(ik) *rgmm*eig3 (ik) 

40 continue 

do 50 ik-ikbeg,ikend 
az-eig3 (ik) /c (ik) 

am(ik, 1, l)-eigl (ik) +qsqby2 (ik) *eig5 (ik) 

> + (akxj (ik)*usw(ik)+akzj (ik) *vsw(ik)) *az 
am(ik, 1,2) —usw (ik) *eig5 (ik) -akxj (ik)*az 

am(ik, 1,3)—vsw(ik) *eig5(ik) -akzj (ik) *az 
am(ik, 1, 4)-eig5 (ik) 
az-akxj (ik)*elg6(ik) 

am(ik,2,l)-usw(ik)*am(ik, l,l)-vsw(ik)*eig9(ik) 

> -usw(ik) *eig7 (ik) -qsqby2 (ik) *az 
am(ik, 2,2)-usw(ik) *am(ik, 1,2) +eig7 (ik) + isw(ik) *az 
am(ik,2,3)-usw(ik)*am(ik,l,3)+eig9(ik)+vsw(ik)*az 
am(ik,2,4)-usw(ik)*am(ik, l,4)-az 

az-akzj (ik) *eig6 (ik) 
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1365 

1366 

1367 
1366 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 


am(ik,3..; )-vsw(ik)*am(ik, 1,1) -usw(ik)*eig9(ik) 

> -vsw(ik) *eig8 (ik) -qsqby2 (ik) *az 
am(ik, 3,2)-vsv(ik) «am(ik, 1,2) +eig9 (ik) +usw (ik) *az 
am(ik, 3,3)-vsw(ik) *am(ik, 1, 3)+eig8 (ik) +vsw(ik) *az 
am(ik, 3, 4)-vsw(ik) *am(ik, 1,4) -az 

am(ik, 4,1)— qsqby2 (ik) *am(ik, 1,1) +usw(ik) *am(ik,2,1) 

> +vsw(ik) *am(ik,3,l)+qsqby2 (ik) *«ig2 (ik) 

> +eigl0(ik)*(usw(ik)*akxj (ik)+vsw(ik) *akzj (ik)) 
am(ik,4,2)— qsqby2 (ik) *am(ik, 1,2)+usw(ik) *am(ik, 2,2) 

> +vsw(ik)*am(ik,3,2)-usv(ik)*eig2(ik)-eigl0(ik)*akxj (ik) 
amfik, 4,3)—qsqby2 (ik) *am(ik, 1, 3) +usw(ik) *am(ik, 2,3) 

> +vsw(ik) *am(ik, 3,3) -vsw(ik) *eig2 (ik) -eiglO (ik) *akzj (ik) 
am(ik,4,4)--qsqby2(ik)*am(ik,l,4) 

> +usw(ik) *am(ik, 2,4) +vsw(ik) *am(ik, 3,4) +eig2 (ik) 

50 continue 

return 

end 

c - 

subroutine btri(lmin,lmax, itrmax) 
parameter (nikp - 213, ninv-61) 

common /ctri /amat(ninv,nikp,4,4), bmat(ninv,nikp,4,4), 

> cmat(ninv,nikp,4,4), fmat(ninv,nikp,4) 

dimension dum(nikp,4) 

lmaxm«lmax-l 

(-•***•*************♦.■»***.*****♦***********♦*.**»*******»»**■»**»»******** 
c lu decompose the first b block and put the elements back in this 

c b block (the diagonals contain the reciprocals of the 

c diagonals of the lower triangular matrix) 

******************** *************************** * *********** ********** 

1-1 

do 10 i«l,itrmax 

bmat(i,1,1,l)«1.0/bmat(i,1,1,1) 

bmat(i,l,1,2)-bmat(i,1,1,1)*bmat(i,1,1,2) 

bmat (i, 1,1,3)-bmat (i, 1,1,1) *bmat (i, 1,1,3) 

bmat(i,1,1,4)-bmat(i,1,1,1)*bmat (i,l,1,4) 

bmat(i,l,2,1)-bmat(i,1,2,1) 

bmat(i,1,2,21-1.0/(bmat(i,1,2,2)-bmat(i,1,2,1)‘bmat(i,1,1,2)) 
bmat(i,1,2,3)-bmat(i,1,2,2)*(bmat(i,1,2,3)-bmat(i,1,2,1)* 

> bmat (i, 1,1,3)) 

bmat(i,1,2,4)-bmat(i,1,2,2)*(bmat(i,1,2,4)-bmat(i,1,2,1)* 

> bmat(i,1,1,4)) 

10 continue 

do 15 i-1,itrmax 

bmat(i,l,3,l)-bmat(i,1,3,1) 

bmat (i, 1,3.2)-bmat (i, 1,3,2) -bmat (i, 1,3,1) *bmat (i, 1,1,2) 
bmat(i,1,3,3)-1.0/(bmat(i,1,3,3)-bmat(i,1,3,1)*bmat(i,1,1,3)- 

> bmat (i, 1,3,2) *bmat (i, 1,2, 3)) 

bmat (i, 1,3,4)-bmat (i, 1,3, 3) * (bmat (i, 1,3, 4) -bmat (i, 1,3,1) * 

> bmat(i,1,1,4)-bmat(i,1,3,2)*bmat (i,1,2,4)) 
bmat(i,1,4,1)-bmat(i,1,4,1) 

bmat(i,1,4,2)-bmat(i,1,4,2)-bmat(i,1,4,1)*bmat(i,1,1,2) 
bmat(i, 1,4,3)-bmat(i,1,4,3)-bmat(i,1,4,1)*bmat(i,1,1,3)- 

> bmat(i,1,4,2)*bmat(i,1,2,3) 

bmat (i,1,4,4)-1.0/ (bmat (i, 1,4,4) -bmat (i, 1,4,1) *bmat (i, 1,1, 4) - 

> bmat(i,1,4,2)*bmat(i,1,2,4) - 

> bmat(i,1,4,3)*bmat(i,1,3,4)) 

15 continue 

Q* **★★***•*♦****♦■*♦****♦*****★■*♦•**•*+♦■***•**♦*******♦**♦****♦♦★♦♦*♦**♦**** * 

c unitize the first b block 

q *+*+***+++++■**+•++****++**+*+*****+**■*+* *+<*******«*+*++**+****«+++*+** * 

do 20 i-1,itrmax 

fmat (i, 1, l)-bmat (i, 1,1,1) *fmat (i, 1,1) 

fmat(i, 1,2)-bmat(i,1,2,2)*(fmat(i,1,2)-bmat(i,1,2,1)*fmat (i,1,1)) 
fmat (i, 1,3)-bmat (i, 1,3, 3) * (fmat (i, 1, 3) -bmat (i,l, 3,1) *fmat (i, 1,1) - 

> bmat(i,1,3,2)*fmat(i,l,2)) 

fmat(i,1,4)-bmat(i,1,4,4)*(fmat(i,1,4)-bmat(i,1,4,1)*fmat(i,1,1)- 

> bmat (i, 1, 4,2) *fmat (i, 1,2) -bmat (i, 1,4,3) *fmat (i, 1,3)) 
fmat(i,1,3)-fmat(i,1,3)-bmat(i,1,3,4)*fmat (i,l,4) 

fmat(i,1,2)-fmat(i,1,2)-bmat(i,1,2,3)*fmat(i,1,3)-bmat(i,l,2,4)* 

> fmat(i,l,4) 

fmat(i, 1,l)«fmat(i,l,1)-bmat(i,1,1,2)*fmat(i,1,2)-bmat (i,l, 1,3) * 

> fmat(i,1,3)-bmat(i,1,1,4)*fmat(i,l,4) 

20 continue 

do 30 m=l,4 
do 30 i-1,itrmax 

cmat(i,1,l,m)«bmat(i,1,1,1)*cmat(i,1,l,m) 

cmat(i,1,2,m)-bmat(i,1,2,2)*(cmat(i,l,2,m)-bmat(i,1,2,1)* 

> cmat(i,1,1,m)) 
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1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 
14 64 

1465 

1466 

1467 
14 68 

1469 

1470 
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1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 
14 92 

1493 

1494 

1495 

1496 
14 97 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 


cmat (i, 1,3,m) -bmat (i, 1,3,3) * (cmat (i, 1,3,m) -bout {i, 1,3,1) * 

> cmat(i, 1, l,m)-bmat(i,1,3,2)*cmat (i,1,2,m)) 
cmat(i,1,4, m)-bmat(i, 1,4,4) ♦(cmat(i,1,4,m)-bmat(i, 1,4,1) * 

> cmat(i, 1,1,m) -bmat (i, 1,4,2) *cmat(i, 1,2,m) - 

> bmat(i,1,4,3)*cmat(1,1,3,m)) 

cmat(i,1,3,m)-cmat(i, 1,3,m)-bmat11,1,3,4)*cmat(i, 1,4,m) 
cmat(i,1,2,m)-cmat(i,1,2,m)-bmat(1,1,2,3)*cmat(i,l,3,ra)- 

> bmat (i, 1,2,4) *cmat (i, 1,4,m) 

cmat (1,1, l,m) -cmat (i, 1, l,m) -bmat (i,1,l,2)*cmat (i, l,2,m) - 

> bmat (i, 1,1,3) *cmat (i, 1, 3,m) - 

> bmat(i,1,1,4)*cmat(i,1,4,m) 

30 continue 

c *******«******«******************************************************** 
c upper triangularize the block tridiagonal matrix 

c *********************************************************************** 
do 40 l-2,lmax 
lm-1-1 

c*********************************************************************** 
c add -a (1) *f (1-1) to f(l) and -a(l)*c(l-l) to b (1) 
c *********************************************************************** 
do 50 k-1,4 
do 50 i-l,itrmax 
dum(i, k)-fmat (i, lm, k) 

50 continue 

do 60 k-1,4 

do 60 i-l,itrmax 

fmat(i, 1, k)-fmat(i, 1, k) - 

> amat(i,1,k,1)*dum(i,1)-amat(i,1,k,2)*dum(i,2)- 

> amat (i, 1, k, 3) *dum(i, 3) -amat (i, 1, k, 4) *dum(i, 4) 

60 continue 

do 70 k-1,4 
do 70 m-1,4 
do 70 i-l,itrmax 

bmat (i, 1, k,m)-bmat (i, 1, k,m) -amat (i, 1, k, 1) *cmat (i, lm, l,m) - 

> amat(i,l,k,2)*cmat(i,lm,2,m)- 

> amat(i,l,k,3)*cmat(i,lm,3,m)- 

> amat(i,1,k,4)*cmat(i,lm,4,m) 

70 continue 

q ♦ + +***-** * ** * ♦♦***♦♦*****♦ ♦ ********** ♦ ***** ♦ ********************* * ***** * 

c lu decompose the b(l) block and put the elements back in this 

c b block (the diagonals contain the reciprocals of the 

c diagonals of the lower triangular matrix) 

£*********************************************************************** 
do 80 i-l,itrmax 
bmat (i,l,l,l)-1.0/bmat(i, 1,1,1) 
bmat (i, 1,1,2)-bmat (i, 1,1,1) *bmat (i, 1,1,2) 
bmat (i, 1,1,3)-bmat(i,1,1,1)*bmat(i,1,1,3) 
bmat (i, 1,1,4)-bmat (i, 1,1,1) *bmat (i, 1,1,4) 
bmat(i,l,2,l)-bmat(i,1,2,1) 

bmat (i, 1,2,2)-1.0/(bmat(i,1,2,2)-bmat(i,l,2,1)*bmat (i,1,1,2)) 
bmat(i,1,2,3)-bmat(i,1,2,2)*(bmat(i,1,2,3)-bmat(i,1,2,1)* 

> bmat(i,1,1,3)) 

bmat(i,l,2,4)-bmat(i,1,2,2)*(bmat(i,l,2,4)-bmat(i,1,2,1)* 

>b mat(i,1,1,4)) 

80 continue 

do 85 i-l,itrmax 

bmat(i,1,3,l)-bmat(i,1,3,1) 

bmat(i,1,3,2)-bmat(i,l,3,2)-bmat(i,1,3,1)*bmat(i,1,1,2) 
bmat(i,1,3,3)-1.0/(bmat(i,1,3,3)-bmat(i,1,3,1)*bmat(i,1,1,3)- 

> bmat(i,l,3,2)*bmat(i,l,2,3)) 

bmat (i, 1,3,4) -bmat (i, 1,3,3) * (bmat (i,l, 3, 4) -bmat (i, 1,3,1) * 

> bmat(i,1,1,4)-bmat(i,1,3,2)*bmat(i,l,2,4)) 
bmat(i,1,4,1)-bmat(i,1,4,1) 

bmat(i,1,4,2)-bmat(i,1,4,2)-bmat(i,1,4,1)*bmat(i,l,1,2) 
bmat(i,1,4,3)-bmat(i,1,4,3)-bmat(i,1,4,1)‘bmat(i,1,1,3)- 

> bmat(i,1,4,2)*bmat(i,1,2,3) 

bmat (i, 1,4,4)-1.0/(bmat(i,1,4,4)-bmat(i,1,4,1)*bmat (i,1,1,4)- 

> bmat(i,l,4,2)*bmat(i,1,2,4)- 

> bmat(i,1,4,3)*bmat(i,1,3,4)) 

85 continue 

c »***********-»*****«**************«************»***»*«*.**************** 
c unitize the b(l) block 

£++*+*******************************************+**+*+*****+*++********* 
do 90 i-l,itrmax 

fmat(i, 1,l)-bmat(i,1,1,1)*fmat (i,1,1) 

fmat(i,1,2)-bmat(i,1,2,2)*(fmat(i,1,2)-bmat(i,1,2,l)*fmat (i,1,1)) 
fmat (i, 1,3)-bmat (i, 1,3,3) * (fmat (i, 1,3) -bmat (i, 1,3,1) *fmat (i,l, 1) - 

> bmat(i,1,3,2)*fmat(i,l,2)) 
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1582 
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1597 

1598 


fmat (1,1,4)-t»at<i, 1,4,4) «(fmat(i, 1,4) -bmat(i, 1,4,1) *fmat (1,1,1)- 

> bmat(i, 1,4,2)*fmat(1,1,2)-bmat(i,1,4,3)*fmat (i, 1,3)) 
font (i, 1,3)-fmat (1,1,3) -bmat <i,1,3,4)*fmat (1,1,4) 
fmat(i,l,2)«fmat(i,l,2)-bmat (i,l,2,3)*fmat(i,l,3)-bmat(i,l,2,4)* 

> fmat(i,l,4) 

fmat(i,1,1)-fmat(i,1,1)-bmat(i,1,1,2)*fmat(i,1,2)-bmat(i,1,1,3)* 

> fmat(i,l,3)-bmat(i,l,l,4)*fmat(i,l,4) 

90 continue 

do 100 m-1,4 
do 100 i-l,itrmax 

cmat (i, 1,1,m)•bmat (i, 1,1,1) *cmat (i, 1, l,m) 
cmat(i,l,2,m)-bmat(i,l,2,2)* (cmat (i, 1,2,m) -bmat (i, 1,2,1)* 

> cmat (i, 1, l,m)) 

cmat (i, l,3,m)-bmat (i, 1,3,3) * (cmat (i,l, 3,m) -bmat (i, 1,3,1) * 

> cmat (i, 1, l,m) -bmat (i, 1,3,2) *cmat (i, 1,2,m)) 
cmat(i,l,4,m)-bmat(i,1,4,4)*(cmat(i,l,4,m)-bmat(i,1,4,1)* 

> cmat (i,l, l,m) -bmat (i, 1,4,2) *cmat (i, 1,2,m) - 

> bmat(i,l,4,3)«cmat(i,l,3,m)) 

cmat(i, 1,3, m)-cmat(i,1,3,m)-bmat(i,1,3,4)*cmat(i,l,4,m) 
cmat(i,1,2,m)-cmat(i,1,2,m)-bmat(i,1,2,3)*cmat(i,1,3,m)- 

> bmat(i,1,2,4)*cmat(i,1,4,m) 
cmat(i, 1, l,m)-cmat(i,1,l,m)-bmat(i,1,1,2)*cmat(i,1,2,m)- 

> bmat(i,1,1,3)*cmat(i,l,3,m)- 

> bmat(i,l,1,4)*cmat(i,1,4,m) 

100 continue 

40 continue 

c *+**♦+*+♦***+*+++**+*+*+**-*+♦++*«*+***** * *♦*****■*★■*■**■***♦♦**♦**♦*♦**** * 

c perform the back substitution 

********************************************************************** 

do 110 1-lmaxm,1,-1 
lp-1+1 

do 120 m-1,4 
do 120 i-l,itrmax 
dum(i,m)-fmat (i, lp,m) 

120 continue 

do 110 m-1,4 

do 110 i-l,itrmax 

fmat (i,l,m)-fmat (i,l,m)- 

> cmat(i,1,m,1)*dum(i,1)-cmat(i,1,m,2)*dum(i, 2) - 

> cmat (i, l,m, 3) *dum(i,3) -cmat (i, l,m, 4) *dum(i,4) 

110 continue 

return 

end 

c - 

subroutine mulam 
include ’corns.f' 
nt-1 

cinfsq-gamma*pinf/rinf 

do 10 i-l,imx(nt) 

do 10 k-l,kmx(nt) 

rsqqsq - q(2,i,k)**2+q(3,i,k)**2 

pval - gmm* (q (4,i, k)-0.5'*rsqqsq/q(l, i, k)) 

cvalsq - gamma*pval/q(l,i,k) 

tval - tinf*cvalsq/cinfsq 

az - (tinf+198.6)/(tval+198.6) 

vismu(i,k) - az* (tval/tinf)**!^ 

turmu(i,k) - 0. 

10 continue 

return 
end 

C- 

subroutine eddybl 
include 'corns.f' 

dimension turmui(nka),turmuo(nka),fval(nka) ,snor(nka),vort(nka) 
dimension u_xi(nka),u ze(nka), w_xi(nka),w_ze(nka), qtot(nka) 
c constants for the turEulence model 

aplus-26.0 
ccp-1.6 
ckleb-0.3 
cwk-0.25 
smallk-0.4 
capk-0.0168 
cmutm-14.0 
imax - imx(l) 
itel - iwks(l) 
iteu - iwke(l) 
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1599 

1600 
1601 
1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 
1611 
1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 
1621 
1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 
1661 
1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 


kmax - kmx(l) 

c calculate the eddy viscosity 

c..eddy is scaled down in wake 
do 10 i«itel,iteu 
c do 10 i-2,imax-l 

c calculate the magnitude of the vorticity and total velocity 
u ze(l) — 1 . 5 *(q( 2 ,i,l)/q(l,i,l))+ 2 . 0 *(q( 2 ,i, 2 )/q(l,i, 2 >) 

> " -0.5* (q(2, i, 3) /q(l, i, 3)) 

w ze(l)— 1.5*(q(3.i,l)/q(l,i,l))+2.0*(q(3,i,2)/q(l,i,2)) 

> -0.5* (q(3,i, 3) /q(l, i, 3)) 
do 20 k-2,kmax-1 

km-k-1 

kp-k+1 

u ze(k)-0.5*(q(2,i,kp)/q(l,i,kp)-q(2,i,km)/q(l,i,km)) 
w“ze(k)-0.5* (q(3,i,kp)/q(l,i, kp) -q(3,i,km)/q(l,i, km)) 

20 continue 

if(i .eq. 1) then 
do 40 k-1,kmax 
ip-i+1 

u xi(k)-( q( 2 ,ip,k)/q(l,ip,k)-q( 2 ,i,k)/qd,i,k) ) 
w“xi (k)-( q( 3 ,ip, k)/q(l,ip, k)-q(3,i,k)/q(l,i,k) ) 

40 continue 

else 

do 60 k-1,kmax-1 

ip-i+1 

im-i-1 

u xi(k)«0.5*< q (2, ip» k)/q(l,ip,k)-q(2,im, k)/ q(1, lm, k) ) 
w"xi(k)-0.5*( q(3,ip,k)/q(l,ip,k)-q(3,im,k)/q(l,im,k) ) 

60 continue 

endif 

do 70 k-1,kmax-1 

dudz-( u xi(k)*xiz(i,k)+u ze(k)*zez(i, k) )*aja(i,k) 
dwdx«( w_xi(k)+xix(i,k)+w'ze(k)*zex(i,k) )*aja(i,k) 
vort(k)~abs(dudz-dwdx) 

qtot (k) “sqrt (q(2,i«k)**2+q(3,i,k)**2)/q(l,i,k) 

70 continue 

c 

c calculate the distance normal to the body 
c 

snor(l)-O.O 
do 80 k«2,kmax 
km-k-1 

az-x (i, k) -x (i, km) 
bz-z (i, k) —z <i, km) 

snor(k)-snor(km)+sqrt(az**2+bz**2) 

80 continue 

c calculate the exponent for the exponential term 

k-1 

c..by vorticity... 
c yac - aja(i,k) 

c ux-( u xi (k) *xix (i, k)+u ze (k) *zex (i, k) ) * yac 

c wx— ( w xi (k)*xix(i,k)+w2ze(k)*zex(i,k) ) * yac 

c uz-( u”xi (k)*xiz(i, k)+u_ze(k)*zez(i, k) ) * yac 

c wz-( w_xi(k)*xiz(i,k)+w~ze(k)*zez(i,k) ) * yac 

c fmu-vismu(i,k) 

c tauxx-fmu*(2.0*ux-2.0*(ux+wz)/3.0) 

c tauxz-fmu*(uz+wx) 

c tauzz-fmu*(2.0*wz-2.0*(ux+wz)/3.0} 

c ze_x - zex(i,k) 

c ze z - zez(i,k) 

c fact- 1.0/sqrt( ze_x**2+ze_z**2) 

c akl - fact*ze_z 

c ak2 —fact*ze x 

c tauwal-abs < (tauxx-tauzz)*akl*ak2+tauxz*(ak2**2-akl**2)) 

c expnnt-sqrt(q (1,i,k)*tauwal)/(vismu(i,k)*aplus) 

c expnnt-expnnt*sqrt(reynnu) 

EXPNNT - SQRT ( REYNNU*q(l, I,K) *V0RT (K) ) / (VISMU(I,K) *APLUS) 
c calculate the eddy viscosity fot the iiner region 
c mt_inner - rho * (1**2) * vort 

do 90 k-1,kmax-1 

alen-smallk*snor(k)*(1.0-exp(-expnnt*snor(k))) 
turmui(k)-reynnu*q(l,i,k)*vort(k)+alen**2 
90 continue 

c calculate the eddy viscosity for the outer region 

do k-1,kmax-1 

fval(k)-snor(k)*vort(k)+(1.0-exp(-expnnt+snor(k))) 

enddo 

fmax-0.0 
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1677 

1678 

1679 

1680 
1681 
1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 


115 

110 

120 


130 


c 


c * • 


10 
c.. 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


O 


do 110 k»3,kmax-1 

if(fmax.le.fval(k) .or. fmax.lt.fval(k+1)) go to 115 

ypl-expnnt*aplus*snor(k) 

if(ypl.gt.30) go to 120 

continue 

fmax-fval(k) 

ks-k 

continue 

continue 

ksm-ks-1 

ksp-ks+1 

az»(fval(ks)-fval(ksm))/(snor(ks)-snor(kam)) 
bz«(fval(ksp)-fval(ks))/(snor(ksp)-snor(ks)) 
aval-(bz-az)/(snor(ksp)-snor(ksm)) 
bval-az-aval*(snor(ks)+snor(ksm)) 
aval-aval+1.0e-08‘sign(1.0,aval) 
snormx—0.5*bval/aval 
anormx-max(snormx,snor(ksm)) 
snormx-min(snormx,snor(ksp)) 
klft-ksra 

if(snormx.gt.snor(ks)) klft-ks 
krgt-klft+l 

frc-(anormx-snor(klft))/(snor(krgt)-snor(klft)) 

fmax-fval(klft)+frc*(fval(krgt)-fval(klft)) 

qmax—100000.0 

<jnin-100000.0 

do 130 k-1,kmax-1 

qmax-max(qmax,qtot(k)) 

qmin-min(qmin,qtot(k)) 

continue 

qdif-qmax-qmin 

az-snormx* fmax 

bz-cwk»snormx*qdif *qdif/(fmax+1.0e-08*sign(1.0,fmax)) 
fwake-min(az,bz) 

if( i .gt. itel .and. i .It. iteu ) then 
fwake-az 
else 

fwa ke-bz 
endif 

const-capk*ccp*fwake*reynnu 
do k-1,kmax-1 

fkleb-1.0/(1.0+5.5*(ckleb+snor(k)/snormx)“6) 
turmuo(k)-const*fkleb*q(l,i,k) 
enddo 

choose from the inner and outer eddy viscosity values 
ainner-1.0 
do k-1,kmax-1 

if(turmui(k).gt.turmuo(k)) ainner-0.0 

turmu(i,k)-ainner*turmui(k)+(1.0-ainner)‘turmuo(k) 

enddo 

continue 

eddy is scaled down in wake 
do i - 2,itel 
iu - imax - i + 1 
fac - 1./11.+ (x (i, 1) -x (itel, 1)) “3) 
do k - 1,kmax-1 

turmu(i,k) - turmu(itel+1,k)*fac 

turmu (iu,k) - turmu (iteu-1, k) *fac 
enddo 
enddo 


> 

> 

> 


if(itr .eq. niter) then 

open(unit-30,file-’turmu.d',form-'formatted') 

ipl - 71 

ip2 - 100 

ip3 - 101 

ip4 - 102 

ip5 - 115 

write(30,'(f5.2,5el4.6)') ( float(k), 
turmu (ipl, k), turmu (ip2,k), turmu (ip3, k), 
turmu (ip4, k), turmu (ip5, k), 
k-2, kmx (1)) 
endif 
return 
end 


subroutine metric 
include 'corns.f' 

dimension ajamax(nia),ajamin(nia) 
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1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 
17 94 

1795 

1796 

1797 

1798 

1799 

1800 
1801 
1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 
1811 
1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 
1821 
1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 


data eps /l.e-26/ 

c*********************************************************************** 
nt - 1 
ng - 1 

do 100 i»l,imx(nt) 
iml - i - 1 
ipl - i + 1 
do 100 k - l,krax(nt) 
if( 1 .eq. 1 ) then 
xxi - x(2, k) - x(l,k) 
zxi - z(2,k) - z(l,k) 
elseif( i .eq. imx(nt) ) then 

xxi - x(imx(nt),k) - x (imxl (nt), k) 
zxi « z(imx(nt),k) - z (imxl (nt), k) 
else 

xxi - 0.5 * ( x(ipl,k) - x(iml,k) ) 

zxi - 0.5 * ( z(ipl,k) - zfiml.k) ) 

endif 

if( k .eq. 1 ) then 

xze - 2.*x(i,2) - 1.5*x(i,l) - 0.5*x(i,3) 

zze - 2.*z(i,2) - 1.5*z(i,l) - 0.5*z(i,3) 

elseifl k .eq. kmx(nt) ) then 

xze - 1.5*x(i, kiBx(nt)) - 2.*x(i,kmxl(nt)) + 0.5*x(i,kmx2(nt)) 

zze - 1.5*z(i,kmx(nt)) - 2.*z (i, kmxl (nt)) ♦ 0.5*z(i,kmx2(nt)) 

else 

kml - k - 1 

kpl - k + 1 

xze « 0.5 * ( x(i,kpl) - x(i,kml) ) 

zze - 0.5 * ( z(i,kpl) - z(i,kml) ) 

endif 

xix(i,k) - 2 ze 
xiz(i,k) —xze 
zex(i,k) —zxi 
zez(i,k) - xxi 

c xix(i,k) - bjac * 2 ze 

c xiz(i.k) —bjac * xze 

c zex(i,k) —bjac * zxi 

c zez(i,k) - b]ac * xxi 

xdot - omega * z(i,k) 
zdot - -omega * x(i,k) 

xit(i,k) - -xdot*xix(i,k) - zdot*xiz (i, k) 
zet(i.k) - -xdot*zex(i,k) - zdot*zez(i,k) 
yacob - ( xxi*zze - xze'zxi ) 

If ( yacob .eq. 0. ) then 

print *, 'zero jac at i,k 
yacob - eps 
endif 

aja(i,k) - 1.0 / yacob 
100 continue 

if( oscil .or. ramp ) return 

c *********************************************************************** 
c compute max and min values of jacobian and check for 

c negative values 

Q********* *+** * + + + + + ************************************************** ** 

ajmax - -1.0e35 

ajmin - 1.0e35 

do 63 k - l,kmx(ng) 

do 63 i • l,imx(ng) 

ajmax - max( ajmax,aja (i, k) ) 

ajmin - mini ajmin,aja (i, k) ) 

63 continue 

write(6,602) ajmax,ajmin 
c..write negative jacobians and stop 
if( ajmin.It.0.0 ) then 
do 64 k » 1, kmx (ng) 
do 64 i « l,imx(ng) 
if ( aja(i,k) .It.0.0 } then 

write(6,603) aja(i,k), i, k 
stop 
end if 

64 continue 
end if 

602 format( ' The range of the jacobian iss 

> ' jmax - ',el0.3,5x,'jmin - *,el0.3,/ ) 

603 format( ' lOx,'negative jacobian - ’,el0.3,lx,’at i,k 

> 2i5 ) 
return 
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1834 

C-- 



1835 


subroutine eigen 

1836 


include 'corns. 

f' 

1837 


almax-0.0 


1838 

c.. 

compute the maximum eigenvalue 

1839 


nt - 1 


1840 


ng « 1 


1841 


do 10 i • 2, imxl(nt) 

1842 


ip - i ♦ ' 


1843 


im - i - : 


1844 

c.. 

evaluate the derivatives of x and z for the line *** 

1845 


do 20 k - 

2, kmxl(nt) 

1846 


kp 

k ♦ 1 

1847 


km « 

k-1 

1848 


xta - 0. 

0 

184 9 


zta - 0. 

0 

1850 


xps - 0. 

5* (x (ip, k) - x (im, k)) 

5* (z(ip,k) - z(im,k)) 

1851 


zps - 0 

1852 


xze - 0. 

5*(x(i,kp) - x(i, km)) 

1853 


zze - 0. 

5*(z(i,kp) - z(i,km)) 

1854 

c.. 

compute the maximiAi eigenvalue *** 

1855 


bjac 

- abs(1.0/( xps*zze - xze*zps ) ) 

1856 

ccc 

bjac 

- aja (i,k) 

1857 

ccc 

psix; 

- bjac * zze 

1858 

ccc 

psiz; 

- -bjac * xze 

1859 

ccc 

zetx- 

- -bjac * zps 

1860 

ccc 

zetz 

- bjac * xps 

1861 


psixj - 

xps 

1862 


psizj - 

xze 

1863 


zetxj - 

zps 

1864 


zetzj - 

zze 

1865 


obyr 

- 1.0/q(l,i,k) 

1866 


rqsq 

- obyr* (q (2, i, k) **2 ♦ q(3,i,k)**2 ) 

1867 


pval 

- gmm *(q(4,i,k) - 0.5*rqsq) 

1868 


cval 

- sqrt(gamma*pval*obyr) 

1869 


uvel 

« obyr*q(2,i,k) - xta 

1870 


wvel 

- obyr*q(3,i,k) - zta 

1871 


ucon 

- abs(uvel*psixj + wvel*psizj) 

1872 


bz 

- cval*sqrt(psixj**2 ♦ psizj**2) 

1873 


alpsi 

- bjac*(ucon ♦ bz) 

1874 


vcon 

- abs(uvel*zetxj ♦ wvel*zetzj) 

1875 


bz 

- cval*sqrt(zetxj**2 + zetzj**2) 

1876 


alzet 

- bjac*(vcon ♦ bz) 

1877 


almaxn 

- sqrt(alpsi**2 ♦ alzet**2) 

1878 


almax 

- max(almaxn, almax) 

1879 

20 

continue 


1880 

10 

continue 


1881 


dtau-cour/almax 

1882 


if( timeacc )• 

then 

1883 


do k-1, kmx (1) 

1884 


do i-l,imx(l) 

1885 


dt(i,k) « dtau 

1886 


enddo 


1887 


enddo 


1888 


else 


1889 

c.. 

evaluate variable dtau scaling based on Jacobian.. 

1890 


do k-1, kmx (1) 

1891 


do i-l,imx(l) 

1892 


sqjac - sqrt( aja(i,k) ) 

1893 


dt (i, k) - ( 

1.0 ♦ dtau*sqjac )/( 1.0+sqjac ) 

1894 


enddo 


1895 


enddo 


1896 


endif 


1897 


print *, 'L max - ', almax 

1898 


write (6,61) dtau 

1899 

61 

format ( ' dtau - ', f12.B) 

1900 

1901 

1902 


return 

end 





1903 


subroutine loads 

1904 

Comment !!! 


1905 

** 

THIS SUBROUTINE IS INCORRECT !!! 


1906 ** Must use non-rotated grid x(i,k), z(i,k) 

1907 ** See wrcl.f 

1908 include 'corns.f' 

1909 dimension cp(nia) , cf(nia), txzs(nia), yplus(nia) 

1910 itel - iwks(l) 








1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 


iteu • iwke(l) 
c. .coinput* pressure loads 

cpc • 1. / ( 0.5*rinf*uinf**2) 

do 100 i - itel, Itau 
p - gmm* { q(4,i,l) 

> - . 5* (q (2, i, 1) **2 ♦ q(3,i,l)**2)/q(l,i,l> ) 
cp(i) - - (p - pinf) * cpc 

100 continue 
cn -0.0 
ch “0.0 
c» -0.0 

do 25 i“itel,iteu-l 

dx - x(i+l, 1) - x(i, 1) 
dz - z{i+l,l) - z(i,l) 
avcp - 0.5* ( cp(i+l)+cp(i) ) 
cn ■ cn ♦ avcp*dx 
ch - ch - avcp*dz 
c.. cm about 259 chord 

cm “ cm - avcp * ( dz*z(i,l) ♦ dx*(x(i,1)-.25) ) 

25 continu« 

cl “ cn*cos(alfa) - ch*sin(alfa) 
cd - cn*sin(alfa) ♦ ch*cos(alfa) 
c..compute viscous loads 
do 10 i “itel, itau 
u xi - 0.0 

u~ze - q(2,i,2)/q(l,i,2) - q(2, i, 1)/q (1, i, 1) 
w xi - 0.0 

w~ze - q(3,i,2)/q(l,i,2) - q(3,i,l)/q(l,i,l) 
xT_x - xix(i,l)*aja(i,l) 
ze x - zex(i,l)*aja(i,l) 
xi z • xizCi,1)*aja (i, 1) 
za z • zex(i,1)*aja(i,1) 
u_x - u_xi * xi_x + u_ze * ze_x 

w_x - w^xi * xi~x + w_ze * ze_x 

u_z “ u_xi * xi_z + u_ze * za_z 

w z - w~xi * xi z * w_za * ze _2 

vlscl ~ - 0.5 T ( vismuti.l) + vismu(i,2) ) 
viset “ 0.5* ( turmu(i,l) ♦ turmu(i,2) ) 
viseto - (viscl ♦ viset) / reynnu 
txzs(i) - ( (viseto*(u_z + w_x)) / (0.5 * amach**2) ) 
c..skin friction 

sn - sqrt ( (x (i,2) -x<i, 3)) **2 ♦ (z (i,2)-z (i,3)) *»2 ) 
rho - q(i,l,l) 

yplus(i) - sqrt( abs(txzs(i)) * rho ) * sn / viseto 
dx - (x(i+1,1) - x(i,l)) 
dz - (z(i+1,1) - z(i,l)) 
cf(i) - -txzs(i)*(dz/abs(dz)) * 1000 
10 continue 
env - 0. 
chv • 0. 
cmv - 0. 

do 20 i - itel, iteu-l 
dx - (x (i+1,1) - x (i, 1)) 
dz - (z(i+l,l) - z(i,l)) 
avtxzs « 0.5*( txzs(i+1)+txzs(i) ) 
env - env + avtxzs+dz 

chv - chv + avtxzs*dx 

cmv - cmv + avtxzs * (dx * z(i,l) - dz * x(i,l) ) 

20 continue 

civ - cnv*cos(alfa) - chv*sin(alfa) 
edv - cnv*sin(alfa) + chv*cos(alfa) 
write(9,101) iter, alfad, time, amach, reynph, 

> itel, iteu, cl,cd,cm, clv,cdv,cmv, 

> (cp(i), i-itel,iteu),(cf(i), i-itel,iteu) 

101 format(ilO,4el2.4, 2i5/ 6el2.4 / (6el2.3) ) 

return 

and 


subroutine grmove(dalfa) 

include 'corns.f 

if( dalfa .eq. 0.) return 

ca - cost dalfa ) 

sa “-sin( dalfa ) 

do 10 i“l,imx(l) 

do 10 k“l,kmx(l) 

xold “ x(i,k) 

zold « z(i,k) 

x(i,k) - xold * ca - zold * sa 
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z(i,k) - zold * ca ♦ xold * sa 
10 continue 

call Metric 

return 

end 


subroutine qio(io) 
include 'corns.f* 

IT ( 10 .eq. 0) THEN 

open(unit-32,file-'ends.d',form-’unformatted’) 

write (32) imx(l), kmx(l), ksi 

write (32) amach.alfad,reynph, time, iter 

write (32) ((( q(l,i,k), i-l.imx(l) ), k-l,k*x(l) ), 1-1,4) 
close(32) 

ELSEIF (10 .eq. 10) THEN 

write (8) imx(l), kmx(l), ksi 

write (8) amach.alfad,reynph,time,iter 

write (8) ((( q(l,i,k), i«l,imx(l) ), k-l,kmx(l) ), 1-1,4) 
ELSEIF (10 .eq. 1) THEN 

open(unit-31, file-* strs.d’,form- •unformatted*,status-'old*) 

read (31) imx(l), kmx(l), ksi 

read (31) amachr,alfad,reynphr,time,iter 

read (31) ((( q(l,i,k), i-l,imx(l) ), k-l,kmx(l) ), 1-1,4) 

close(31) 

kso - kmx(l) 

ELSEIF (10 .eq. 2) THEN 

open(unit-31,file-'strs.d',form-'formatted*.status-'old*) 

read (31,*) imx(l), kmx(l), ksi 

read (31,*) amachr,alfad,reynphr,time,iter 

read (31,*) ((( q(l,i,k), i-l,imx(l) ), k-l,kmx(l) ), 1-1,4) 

close (31) 

kso - kmx(l) 

ENDIF 

return 

end 
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APPENDIX D 


A. MICHEL'S EMPIRICAL CORRELATION METHOD 

A problem was discovered with the subroutine 'output' in 
BL2D.F that calculates the transition location using the 
Michel's empirical correlation. The computed transition 
location was found to be computer and input transition point 
dependent. This apparent computational error did not affect 
any other computational results. 

The Michel empirical correlation is based on 
incompressible, constant property flow over a flat plate, and 
is presented in Equation D.l with chord (c) assumed to be one 
(Cebeci and Bradshaw [Ref. 5]). 
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! 


The functional relationship 
transition Reynolds number 
Solving Equations D.l and 
results shown in Figure D.l. 

"tx 


between momentum thickness and 
is presented in Equation D.3. 
D.3 simultaneously yields the 


0.664 (D.3) 


An alternate approach for the solution of Re tr is shown in 
Equation D.4 and D.5 with p/p e =l for incompressible flow. 
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The BL2D.F program uses Equations D.l and D.4 to find the 
transition location. Each panel on a surface is checked by 
computing the transition Reynolds number, momentum thickness, 
and Equations D.l and D.4. The panel where Equation D.l is 
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approximately equal to Equation D.4 is identified as the 
transition location (surface distance from the input 
stagnation point). Both the Indigo and Stardent computers 
compute Equation D.l exactly the same as can be observed in 
Figures D.2 and D.3. However, the summing routines used to 
calculate Equations D.4 and D.5 are computed differently 
depending on the machine used due to precision differences, 
thus producing different transition locations with the same 
input parameters (Figure D.3). 
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